Habe nochmals eine Frage zum färben der Samstags- und Sonntagszelle mit Datum in einem ausgewählten Bereich.
Mit flg. Makro wird nur der Samstag und Sonntag eingefärbt. Das dazugehörige Datum nicht. Was mache ich falsch. Wer kann mir behilflich sein? Danke im voraus
Gruß Uve
Sub test()
Dim c As Range
For Each c In Selection
If c.Value = Weekday(1) Then
c.Interior.ColorIndex = 3
ElseIf c.Value = Weekday(7) Then
c.Interior.ColorIndex = 3
End If
If c.Value = "Samstag" Then
c.Interior.ColorIndex = 3
ElseIf c.Value = "Sonntag" Then
c.Interior.ColorIndex = 3
End If
Next c
End Sub