Hallo Forum,
ich habe ein Problem bei der Ausgabe eines Datums als Suchkriterium. Mein Code ist folgender:
Sub
.....
If ComboBox1 = "ab dem Monat" Then
Selection.AutoFilter Field:=15, Criteria1:=">=" & CLng(CDate("1." & ComboBox2 & ComboBox3)), Operator:=xlAnd
End If
.....
End Sub
Wenn in der CB1 "ab dem Monat" ausgewählt wird, soll der Vorgang starten und die in CB2 (Monat) und CB3 (Jahr) angegebenen Zahlen als Suchkriterium nehmen.
Fehler: es passiert folgendes
Ausgangslage:
CB1:"ab dem Monat"
CB2:"4"
CB3:"2007"
Wenn ich im Code auf die - ("1." & ComboBox2 & ComboBox3) - drauf gehe, werden die richtigen Werte für die CB2/3 angezeigt.
Für CDate wird 18.10.2288 angezeigt
Für CLng wird 142007 angezeigt
Da nach dem Suchkriterium CDate gesucht wird, kommt das falsche Ergebnis raus!
Was muss ich ändern?
Vielen Dank für eure Unterstützung!
Gruß
Space