Bedingte Formatierung VBA mehrer Tabelle
20.02.2021 15:54:17
Frederick
ich habe aktuell ein Problem und komme nicht recht weiter. Ich habe zwar ein Makro, dieses erscheint mir aber ziemlich umständlich.
Möglicherweise gibt es eine bessere Lösung.
Und zwar habe ich einen Dienstplan erstellt, welcher für jeden Monat ein neues Tabellenblatt hat. (Januar 2021, Februar 2021,...)
In den Zeilen werden auf der linken Seite in Spalte A die einzelnen Schichten dargestellt. In den Spalten B-AF sind dann in Zeile 4 und 5 die Tageszahlen und der Tag an sich dargestellt. In Zeile 3 ist das aktuelle Datum geschrieben, welches aber ausgeblendet wird. (Hilfsspalte)
Die bedingte Formatierung soll in B$4 überprüfen ob =heute () ist und wenn ja, dann die Spalte B$4:B$58 in rot darstellen, damit man den aktuellen Tag sofort erkennt.
Jetzt ist mein Makro hierfür sehr lang.
Das Makro, hier lediglich am Beispielt von Januar 2021 und Spalte B, sieht wie folgt aus:
Worksheets("Januar 2021").Select
Range("B4:B58").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$B$3=HEUTE()"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 6579455
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Des weiteren würde ich gerne das Wocheende zusätzlich anders darstellen, als die Formatierung in der Woche. Vielleicht habt ihr hier Tipps für mich.