WochenendeMarkieren

Sub WochenendeMarkieren1()
Dim C As Range
For Each C In ActiveSheet.Range("B2:AF2")
If IsEmpty(C) Then Exit Sub
If C = "So" Or WeekDay(C) = 1 Then
With C.Interior
.ColorIndex = 0
.Pattern = xlGray50
.PatternColorIndex = 3
End With
ElseIf C = "Sa" Or WeekDay(C) = 7 Then
With C.Interior
.ColorIndex = 0
.Pattern = xlGray25
.PatternColorIndex = 3
End With
End If
Next C
End Sub

Vielen Dank im voraus Jens