Bedingte Formatierung dynamisch
28.10.2022 08:51:16
Frank
ich arbeite an einem dynamischen Mitarbeiterkalender.
Die Tage stehen in den Spalten(ist eine Vorgabe).
Ich überprüfe nun ob die Spalte ein Samstag oder Sonntag ist. Wenn dies zutrifft soll ein Bereich innerhalb dieser beiden Spalten formatiert werden.
Die Formel dazu lautet
=UND(ODER(WOCHENTAG($C$2)=1;WOCHENTAG($C$2)=7);$C$2"")
Wenn ich das ganze jetzt dynamisch gestalten möchte, weil sich z.B. die Anzahl der Mitarbeiter verändert,
möchte ich nicht alle bedingten Formatierungen (366) manuell ändern.
Dazu habe ich folgendes gemacht.
For i = 3 To 366
With Union(Range(Cells(3, i), Cells(29, i)), Range(Cells(34, i), Cells(39, i)))
.FormatConditions.Add Type:=xlExpression, Formula1:="=UND(ODER(WOCHENTAG(" & i & ",2)=1;WOCHENTAG(" & i & ",2)=7);(" & i & ",2)"""")"
.FormatConditions(.FormatConditions.Count).SetFirstPriority
.FormatConditions(1).Interior.Color = RGB(192, 192, 192)
.FormatConditions(1).StopIfTrue = False
End With
Next i
=UND(ODER(WOCHENTAG(3,2)=1;WOCHENTAG(3,2)=7);(3,2)"")
Benötigt wird als z.B. ($C$3).
Hat vielleicht jemand eine Idee wie ich dies umsetzen kann?
Vorab schon mal vielen Dank
Liebe Grüße
Frank