'############################################################################
'############################################################################
'############################################################################

Sub springe_zu_datum()
Dim datum_als_zahl As Long
datum_als_zahl = ActiveWorkbook.Worksheets("CALENDAR").Range("E1").Value
For zeile = 5 To 2500 Step 1
    pruefe_diesen_zellwert = ActiveWorkbook.Worksheets("CALENDAR").Range("B" & zeile).Value
    ruekgabewert = InStrRev(pruefe_diesen_zellwert, datum_als_zahl, , vbTextCompare)
    If (ruekgabewert > 0) Then
      Rows(zeile & ":" & zeile).Select
   End If
Next zeile
End Sub

'############################################################################
'############################################################################
'############################################################################

Sub streifen_alles()


bis_hier = 1911

For i = 19 To bis_hier Step 1     'weiss
    Rows(i & ":" & i).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColor = 16243882
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -4.99893185216834E-02
        .PatternTintAndShade = 0
    End With
Next i



For i = 5 To bis_hier Step 2   'grün
    Rows(i & ":" & i).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10092441
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Next i



For i = 5 To 1911 Step 7   'gelb
    Rows(i & ":" & i).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10092543
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Next i

For i = 6 To 1911 Step 7
    Rows(i & ":" & i).Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 10092543
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

Next i


End Sub