Bitte um Hilfe bei Code

Sub Ferien_ein()
For z = 6 To 36 ' =Zeilen 6 bis 36  Die Tage
For s = 1 To 45 Step 4 '=Spalten A, E, E, ... , AS    Der Monat
For f = 530 To 534   ' A530 bis A534 das ferienanfangsdatum,
' B530 bis B534 das jeweilige Enddatum
'Wenn Tagesdatum größer oder gleich Anfangsdatum und kleiner oder gleich Enddatum
'dann färbe die Tagesdatum Zelle 3Spalten weiter hellgrau
If Cells(z, s) >= Cells(f, 1) And Cells(z, s) <= Cells(f, 2) Then
Cells(z, s + 3).Interior.ColorIndex = 15 'hellgrau
End If
Next f
Next s
Next z
End Sub