In eine Userform habe ich mir zwei Calender eingefügt.
Hier soll der Nutzer einen Zeitraum auswählen.
Die ausgewählten Werte übergebe ich an zwei Variablen (dat1 und dat2)
Nun soll auf einem Tabellenblatt mit diesen Werten der Autofilter bestückt werden.
Er übernimmt zwar die Werte in "Benutzerdefiniert", filtert aber nicht. D.h. er zeigt keine Daten mehr an, weil er meint, dass er keine Übereinstimmungen findet. Wenn ich nun aber manuell auf dem entsprechenden Tabellenblatt in den Autofilter gehe, sehe ich unter den benutzerdefinierten Werten meine zuvor über die Variablen eingelesene Datumswerte korrekt angezeit. Drücke ich nun ohne weitere Veränderungen den OK-Button, wird die Filterung durchgeführt.
Ich möchte natürlich, dass diese sofort erledigt wird. Hat jemand eine Idee?
So habe ich es gemacht:
Dim dat1 as date
Dim dat2 as date
'Hier wird nach Datum gefiltert
dat1 = frm_Uebersichten.Calendar1.Value
dat2 = frm_Uebersichten.Calendar2.Value
Selection.AutoFilter Field:=13, Criteria1:=">=" & dat1, Operator:= _
xlAnd, Criteria2:=" end sub
Gruß
Frank