|
Moin,
komme mit einer bedingten Formatierung nicht weiter.
Habe Tabellenblätter von Januar bis Dezember.
' alle Tabellenblätter selektieren
Sheets(Array("Januar", "Februar", "März", "April", "Mai", "Juni", "Juli", "August", _
"September", "Oktober", "November", "Dezember")).Select
In jedem der Tabellenblätter sind Daten (01.01.2023,...31.01.2023,...) hinterlegt.
Das erste Datum steht in Zelle AO9, das letzte in Zelle AO99 (drei Zeilen pro Datum).
Nun soll das Makro prüfen, ob der Wochentag in Zelle AO9 ein Samstag ist.
Wenn ja, soll er die Bereiche B6-M11 und die Bereiche S6 bis AB11 hellgrau einfärben
Wenn es ein Sonntag ist dunkel grau,
_
Danach soll er eine Zelle weiter unten (AO12) das Datum prüfen und analag zu oben die Bereiche
B12 bis M14 und S12 bis AB14 entsprechend einfärben.
Irgendwie habe ich großen Mist gemacht, weil ich keine Ahnung habe :-):
Sub WochenendenHervorheben()
Dim i As Long
'Tabellenblatt Januar
Worksheets("Januar").Activate
'gibt vor, dass das Makro bis Zeile 101 ausgeführt werden soll
For i = 1 To 101
'soll prüfen, ob das Datum in AO9 ein Samstag ist
If Weekday(Cells(5, 52, 2) = 7
'soll die Bereiche B9:M11 und S9:AB11 hellgrau einfärben
Than Range(B9:M11).Interior.ColorIndex = 15
'soll prüfen, ob das Datum in AO9 ein Sonntag ist
If Weekday(Cells(5, 52, 2) = 1
'soll die Bereiche B9:M11 und S9:AB11 dunkelgrau einfärben
Than Range(B9:M11).Interior.ColorIndex = 48
End If
'die Prüfung soll gehen bis AO99
'Zeile mit Tagen die es nicht gibt (30. Februar,...) werden hinterher gelöscht.
Das läuft soweit auch....
Next
End Sub
__
Hat vielleicht jemand eine Idee?
Liebe Grüße
Matthias
|