Probleme mit Datumsfilter ("mm/dd/yyyy hh:mm")
30.08.2005 10:52:36
Markus
ich habe ein kleines Problem mit einem Datumsfilter, der leider so wie ich ihn erstellt habe überhaupt nicht funktioniert. :(
Eigentlich sollte der Filter die Spalte F für einen Zeitraum von xx bis yy filtern. Die Spalte F ist so formatiert: TT.MM.JJJ hh:mm. Der Zeitraum wird nun per Inputbox abgefragt (Stunden und Minuten spielen erstmal keine Rolle) und dann in dieses Format "übersetzt". Dennoch funktioniert der Filter so nicht. Kann mir da evtl. jemand weiterhelfen? Ich komm leider nicht darauf an was es liegen könnte.
Die Datei habe ich auch mal hochgeladen:
https://www.herber.de/bbs/user/26179.xls
Danke für eure Hilfe im voraus!
Gruß
Markus
Sub Datumsfilter()
Wert1 = DateValue(InputBox("Datum von", "Z e i t r a u m", "01.01.2005"))
Dat1 = Format(Wert1, "mm/dd/yyyy hh:mm")
Wert2 = DateValue(InputBox("Datum bis", "Z e i t r a u m ", "31.08.2005"))
Dat2 = Format(Wert2, "mm/dd/yyyy hh:mm")
Range("F4").AutoFilter Field:=6, Criteria1:=">" & Dat1, Operator:=xlAnd, _
Criteria2:="<" & Dat2
End
Sub