Wochenende farblich markieren
100014
Dieses Makro markiert Samstag und Sonntag farblich.
Die Daten müssen in der Zeile 1 Spalte B - AF stehen.
Steht das Datum in andere Zellen, so ist die Zeile 2 entsprechend anzupassen
Sub farbe_wochende()
For Each Cell In Range(Cells(1, 4), Cells(1, 34))
If WeekDay(Cell.Value) = 7 Or WeekDay(Cell.Value) = 1 Then
With Cell.Interior
.Pattern = xlGray16
.PatternColorIndex = 3
End With
End If
Next Cell
End Sub












