kann mir jemand im folgenden Code helfen?
Für das Datumsformat kann ich keine Auswahl treffen, alle anderen Filter funktionieren aber. Wo ist der Fehler?
Private Sub TextBox2_AfterUpdate()
Dim Dat As Date
Set frm = UserForm1
Dat = frm.TextBox2
Sheets("MajFail").Select
Selection.AutoFilter Field:=2, Criteria1:="<" & Dat, Operator:=xlAnd
End Sub
Danke im Vorraus
Gruß Andreas