Bauzeitenplan_Bedingte Formatierung

[martinhunter]

Hallo zusammen,

ich habe vor mir einen Bauzeitenplan zu erstellen und habe Probleme mit der Bedingten Formatierung der Zeiträume.

Ich habe hier im Forum schon eine Vorlage gefunden und wollte diese nun für meine Zwecke erweitern bzw. verändern.

Funktion sollte sein, das man eine Firma über Drop Down auswählt und dann die hinterlegte Farbe für den Zeitraum, Firma und Gewerk Verwendung findet.
Sa und So sollten diese farbliche Markierung niocht bekommen.

Wäre Klasse wenn hier jemand helfen könnte.

Gruß
Martin


  Bauzeitenplan BV xxx.xlsb (Größe: 153,47 KB / Downloads: 11)

[User17330]

Hallo Martin,

eine bedingte Formatierung bei der Anzahl an Zellen halte ich für utopisch, sodass ich mich für eine Lösung mittels VBA entschieden habe:

Code:

Private Sub Worksheet_change(ByVal Target As Range)
Dim Var As Variant
Dim Farbe As Long, Rot As Long, Gruen As Long, Blau As Long
   If Intersect(Target, Range("C16:C165")) Is Nothing Then Exit Sub 'Targetbereich bei Bedarf anpassen
   Var = Application.Match(Target.Value, Worksheets("Tabelle1").Columns(1), 0)
   Farbe = Worksheets("Tabelle1").Cells(Var, 1).Interior.Color
       On Error Resume Next
           Rot = Farbe Mod 256
           Farbe = (Farbe - Rot) / 256
           Gruen = Farbe Mod 256
           Farbe = (Farbe - Gruen) / 256
           Blau = Farbe Mod 256
       On Error GoTo 0
   Target.Interior.Color = RGB(Rot, Gruen, Blau)
   Target.Offset(0, -1).Interior.Color = RGB(Rot, Gruen, Blau)
   Target.Offset(0, 1).Interior.Color = RGB(Rot, Gruen, Blau)
   Target.Offset(0, 2).Interior.Color = RGB(Rot, Gruen, Blau)
   Target.Offset(0, 3).Interior.Color = RGB(Rot, Gruen, Blau)
End Sub

Anbei die funktionierende Umsetzung.

[martinhunter]

Hallo Micha,

das ist Klasse.

Wie bekomme ich jetzt noch die Farben auf den Zeitstrahl übertragen, sprich gleiche Farbe wie links, in den richtigen Zeitraum?

Gruß

Martin

[martinhunter]

Hallo,

kann keiner weiterhelfen?

[Ego]

Hallo Martin,

um mir Doppelkarbeit zu ersparen erst einmal zwei Fragen:

a) Wie willst du Feiertage berücksichtigen? (Wird auch für die Berechnung des Endes eine Themas  mit der Funktion Arbeitstage benötigt.)
b) Bleibt es bei einer einfachen Einfärbung der geplanten Tage pro Firma oder hast du noch Ideen in jeder Zeile mehrere Farben (zb abhängig vom Projektfortschritt oder Gegenwart/Zukunft oder Unterscheidung Ist/Plan oder ....) einzufügen?

[Ego]

Hallo Martin,

in der Anlage ein Beispiel.

Und hier einige Bemerkungen:

a) Feiertage
Die Liste im Arbeitsblatt "Parameter" muss noch gepflegt werden.

b) Farbgebung
Die Farben für die Arbeitstage werden nur für die aktuelle Zeile, in der in den Spalten C-E eine Änderung manuell angepasst wurde, durchgeführt.
Falls ein Beginn oder die Arbeitstage eines Themas durch eine Funktion bestimmt wird und dieser Wert sich ändert wird es nicht durch das Ereignis Worksheet Change bemerkt.
Falls zB. der Beginn eines Themas vom Beginn oder Ende eines anderen Themas abhängt, müste man immer alle Farben aktualisieren.

c) Berechnungen
Ich habe die Felder Ende; Fortschritt und Projektstatus berechnet.
Beim Feld Fortschritt bin ich mir nicht sicher ob es so gemeint war.

[martinhunter]

Hallo Helmut,

deine Arbeit ist Klasse, gefällt mir sehr gut.

Vielen, vielen Dank dafür.
Hat mir unglaublich geholfen.

Werde es jetzt befüllen und damit arbeiten, ggf. würde ich mich nochmal melden.

Gruß
Martin