AutoFilter mit Datum
13.02.2004 15:30:10
Daniel
ich habe ein kleines Problem, und zwar folgendes:
Sub datum()
Dim date1 As String, date2 As String
date1 = InputBox("Bitte das Datum eingeben. Format: dd.mm.yyyy", _
"Datum")
date2 = InputBox("Bitte das Datum eingeben. Format: dd.mm.yyyy", _
"Datum")
Selection.AutoFilter Field:=3, Criteria1:="<=" & date1, Operator:=xlAnd _
, Criteria2:=">" & date2
End Sub
Bei diesem Makro sollen die Daten mit dem Datum >= date1 und < date2 ausgewiesen werden. Diese stehen in der 3.Spalte C.
Nach dem Makro werden aber keine Zeilen angezeigt, obwohl Daten vorhanden sind.
Gebe ich die Kriterien manuell in den Autofilter ein und nicht über die Inputbox bekomme ich die gewünschten Werte ausgefiltert.
Kennt jemand diesen Fehler und wenn ja, wie kann ich Ihn abstellen?
Vielen Dank im voraus.
Gruß Daniel
Anzeige