Hi,
Ich habe folgendes Problem: ich habe in Excel eine Tabelle in der in der obersten Zeile das fortlaufende Datun des aktuellen Monats steht.
Die Wochenendtage habe ich mit der Prozedur blau gefärbt.
Dim r As Range
For Each r In Range("a2:af2") ' erste Zeile der Tabelle
'("b1").CurrentRegion
If IsDate(r.Value) Then
Select Case Weekday(r.Value)
Case 1
r.Interior.Color = vbBlue
r.Font.Color = vbWhite
Case 7
r.Interior.Color = vbBlue
r.Font.Color = vbWhite
Case Else
End Select
End If
Next r
Range("a2:AF17").Select ' Rest der Tabelle
Meine Frage lautet:
Wie kann ich die Zellen die direkt unter den blau eingefärbten Zellen stehen, und die innerhalb des Bereiches B2:AF17 befinden, ebenfalls blau einfärben.
Gruß Erwin