Dim bis_hier As Long
Dim farbe As Long
Dim erster_samstag As Integer
Dim erster_sonntag As Integer

Sub schreibe_tage_des_kalenders()
Dim erster_tag As Long
Dim letzter_tag As Long
Dim i As Long
Dim w As Long
Sheets("kalender").Select
erster_tag = ActiveWorkbook.Worksheets("config").Range("D3").Value
letzter_tag = ActiveWorkbook.Worksheets("config").Range("D11").Value
erster_samstag = ActiveWorkbook.Worksheets("config").Range("D16").Value
erster_samstag = erster_samstag + 1
erster_sonntag = ActiveWorkbook.Worksheets("config").Range("D17").Value
erster_sonntag = erster_sonntag + 1
bis_hier = letzter_tag - erster_tag
For i = erster_tag To letzter_tag
    w = i - (erster_tag - 1)
    ActiveWorkbook.Worksheets("kalender").Range("B" & w).Value = i
Next i
Call setze_datums_format
'Call ergaenze_streifen_fuer_alle_tage
Call ergaenze_streifen_fuer_das_wochenende
Range("A1").Select
End Sub
Sub setze_datums_format()
    Range("B1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "[$-x-sysdate]dddd, mmmm dd, yyyy"
End Sub
Sub ergaenze_streifen_fuer_das_wochenende()
 farbe = 65535 ' 65535 bedeutet gelb
 Call streifen(farbe, erster_samstag, 7) 'samstag gelb einfarben
 Call streifen(farbe, erster_sonntag, 7) 'sonntag gelb einfrben
End Sub
Sub streifen(farbe_als_uebergabe As Long, starte_hier As Integer, jeden_Xten_tas As Integer)
For i = starte_hier To bis_hier Step jeden_Xten_tas
    Rows(i & ":" & i).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColor = 10092543
        .Color = farbe_als_uebergabe   '65535 gelb   5296274 grün   weiss 10092543
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Next i
End Sub

'Sub ergaenze_streifen_fuer_alle_tage()
' farbe = 10092543 'weiss
' Call streifen(farbe, 1, 2) 'weisser streifen
 
' farbe = 5296274 'grün
' Call streifen(farbe, 2, 2) 'grüner streifen
'End Sub