Hallo, ich habe mal das Makro eingestellt,
das funktioniert auch soweit, nun möchte ich aber auch die leeren Zellen unterhalb vom Samstag und Sonntag markieren, das soll aber auch funktionieren wenn man das Jahr ändert.
Sub Samstage()
Dim Zelle As Range
For Each Zelle In ActiveSheet.Range("B3:AF4,B11:AC12,B19:AF20,B27:AE28,B35:AF36,B43:AE44,B51:AF52,B59:AF60,B67:AE68,B75:AF76,B83:AE84,B91:AF92")
If Weekday(Zelle, 2) > 5 Then
Zelle.Interior.ColorIndex = 43
Else
Zelle.Interior.ColorIndex = xlColorIndexNone
End If
Next Zelle
End Sub
|