Sub datum()
i = 1
 
 
 
Do
Weiter:
i = i + 1
Zelle = CDate(Cells(i, 14))
Select Case Zelle
Case Zelle = ""
GoTo Weiter
Case Zelle >= "01.01.2003" Or Zelle <= "30.09.2003"
GoTo Weiter
Case Zelle >= "30.09.2003" Or Zelle <= "01.01.2003"
ActiveCell.EntireRow.Select
 
    With Selection.Interior
        .ColorIndex = 4
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
 
End Select
Loop Until Cells(i, 1) = ""
 
 
 
End