Datum in Textbox in eine Zahl umwandeln
26.02.2009 23:31:12
TCO99
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich eine Hilfsspalte gemacht, in der dann die Zahlenwerte der Datumsangaben stehen, damit ich das Filterkriterium "Zahl des Datums" verwenden kann. Jetzt schaffe ich es aber nicht, den Eintrag der Textbox (eine Datumsangabe) in eine Zahl umzuwandeln und sie dann als Filterkriterium zu verwenden.
Mein Code sieht so aus:
Dim DZ As String
DZ = CLng(Gefiltert.TextBox1)
Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:=DZ
Ich habe es auch damit versucht, leider ohne Erfolg:
txtTage = CDate(txtdatum1)
...
value2
...
CLng(Range("C3").Value)
...
Hat jemand einen Rat? Ich möchte vermeiden, den die TextBox-Eingabe erst in eine Hilfszelle zu schreiben, zu konvertieren und dann wieder zu verwenden.
Gruß
Erdogan