100014
Dieses Makro markiert Samstag und Sonntag im angegebenen Zellbereich farblich. Die Daten müssen in der Zeile 1 Spalte B - AF stehen. Steht das Datum in andere Zellen, so ist die Zeile 2 im Hinblick auf Zeilen- und spaltenangabe 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
Wochenenden lassen sich auch ohne VBA in einer Excel-Tabelle hervorheben.