Fehler in If Anweisung

Sub loeschen()
Dim lR%, intZaehler%
Dim dtVonDatum As Date
Dim dtBisDatum As Date
dtVonDatum = CDate(InputBox("Bitte geben Sie das Startdatum ein", "Startdatum"))
dtBisDatum = CDate(InputBox("Bitte geben Sie das Enddatum ein", "Enddatum"))
lR = Cells(Rows.Count, 6).End(xlUp).Row
For intZaehler = lR To 1 Step -1
' Zeilen loeschen, bei denen das Datum in der Spalte F  kleiner als das eingegebene dtVonDatum ist
If Cells(intZaehler, 6) < dtVonDatum Then Rows(intZaehler).Delete
' Zeilen loeschen, bei denen das Datum in der Spalte F groesser als das eingegebene dtBisDatum ist
ElseIf Cells(intZaehler, 6) > dtBisDatum Then Rows(intZaehler).Delete
End If
Next intZaehler
End Sub