Zellen farblich Markieren

Sub DatumHervorheben(dat As Date, setze As Boolean)
Const Farbe = 22
Const Farbe1 = 36 ‘hellgelb
Dim m As Integer, t As Integer
Dim z As Range
Dim f As Long
m = Month(Date)
t = Day(Date)
Set z = Cells(t + 5, m * 5 - 2)
If setze Then f = Farbe Else f = Farbe1
Range(z, z.Offset(0, -2)).Interior.ColorIndex = f
End Sub

Sub Ferien_ein()
Dim f As Integer
Dim Anfang As Date
Dim Ende As Date
For f = 530 To 534
Anfang = Worksheets("Fs-Planer").Cells(f, 6)
Ende = Worksheets("Fs-Planer").Cells(f, 7)
For z = 6 To 36 ' =Zeilen 6 bis 36
For s = 1 To 60 Step 5 '=Spalten A, E, E, ... , AS
If Cells(z, s) >= Anfang And Cells(z, s)