Sub datum()
  i = 1
 
Do
    gefunden = False
    zelle = CDate(Cells(i, 14))
    If zelle >= CDate("30.09.2003") Or zelle <= CDate("01.01.2003") Then
       gefunden = True
 
    ActiveCell.EntireRow.Select
 
    With Selection.Interior
        .ColorIndex = 4
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
 
    End If
    i = i + 1
Loop Until Cells(i, 1) = "" And gefunden = True
 
End Sub