Datum von bis filtern
26.01.2015 11:10:41
bis
Ich suche jetzt schon ein paar Tage im Netz nach einer Lösung für mein Problem.
Aus einer Userform übergebe ich 2 Datumswerte in 2 Zellen:
Worksheets("bearbeitete Fälle").Range("Q1") = TextBox1
Worksheets("bearbeitete Fälle").Range("R1") = TextBox2
Vorher habe ich daraus jeweils ein Datum gemacht:
Private Sub TextBox1_AfterUpdate()
TextBox1 = Format(TextBox1, "DD.MM.YYYY")
End Sub
vDat_von = Range("Q1")
vDat_bis = Range("R1")
Selection.AutoFilter Field:=14, Criteria1:=">=" & vDat_von, Operator:=xlAnd, Criteria2:=" Dazu wandele ich alles was ein Datum ist in eine Zahl um:
Columns("Q:R").NumberFormat = "General"
In Spalte Q findet dann die eigentliche Filterung von-bis statt.
Jedoch werden die Werte in Q1 und R1 nicht in Zahlen umgewandelt?!
Also klappt auch der Filter nicht.
Arbeite ich zu umständlich?
Oder gibt es einen anderen Weg bzw. wo liegt mein Fehler?
Ich hoffe es kann jemand helfen.
Gruß und Danke!
Werner