Wochenende farblich markieren

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.