Dim bis_hier As Long

Sub kalender_erzeugen()
Dim erster_tag_date As Date
Dim erster_tag_long As Long
Dim letzter_tag_date As Date
Dim letzter_tag_long As Long
aktueller_Name = ActiveSheet.Name
erster_tag_date = ActiveWorkbook.Worksheets(aktueller_Name).Range("B1").Value
erster_tag_long = CLng(erster_tag_date)
letzter_tag_date = ActiveWorkbook.Worksheets(aktueller_Name).Range("B2").Value
letzter_tag_long = CLng(letzter_tag_date)
rest = erster_tag_long Mod 7
bis_hier = letzter_tag_long - erster_tag_long
For Tag = erster_tag_long To letzter_tag_long
    zeile = Tag - (erster_tag_long - 1) + (rest + 5)
    ActiveWorkbook.Worksheets(aktueller_Name).Range("B" & zeile).Value = Tag
Next Tag
Columns("B:B").Select
Selection.NumberFormat = "[$-x-sysdate]dddd, mmmm dd, yyyy"
Call streifen(65535, 6)
Call streifen(65535, 7)
Call bedingte_formatierung
Range("A1").Select
End Sub

Sub streifen(farbe_als_uebergabe As Long, starte_hier As Integer)
For i = starte_hier To (bis_hier + 7) Step 7
    Rows(i & ":" & i).Select
    With Selection.Interior
        .Color = farbe_als_uebergabe
    End With
Next i
End Sub

Sub bedingte_formatierung()
    Columns("A:A").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""heute"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub