Ich habe in der ersten Zeile das Datum eines Monats zu stehen. nun will ich über ein Makro erreichen, das die Wochenenden rot dargestellt werden. Soweit so gut nun soll aber noch 5 Zellen in den entsprechenden Spalten mehr mit markiert werden. habt Ihr Lösungsvorschläge?
~beginn~
Sub WochenendeMarkieren()
Dim C As Range
For Each C In Worksheets(1).Range("A1:A30")
If Weekday(C, vbUseSystemDayOfWeek) > 5 Then
With C.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
Next C
End Sub
~end~