habe folgendes Makro "gebastelt":
'------------- hier Test Filter ----------------------------------------------
Private Sub CommandButton4_Click()
Dim Anfang As Date
Dim Ende As Date
Anfang = Me.TextBox1
Ende = Me.TextBox2
Selection.AutoFilter Field:=10, Criteria1:=">= & Anfang", Operator:= _
xlAnd, Criteria2:="<= & Ende"
End Sub
Habe die Textboxen auf einer UF.
gruß Walter