Autofilter Code
14.04.2005 22:10:27
Jahn
Private Sub TextBox1_Change()
Worksheets("Artikel").Range("D2").AutoFilter _
Field:=1, Criteria1:=TextBox1.Value
ActiveWindow.ScrollRow = 1
End Sub
danke für eure Hilfe
Anzeige