Private Sub TextBox1_Change()
Worksheets("Artikel").Range("D2").AutoFilter _
Field:=1, Criteria1:=TextBox1.Value
ActiveWindow.ScrollRow = 1
End Sub
danke für eure Hilfe
Private Sub TextBox1_Change()
Worksheets("Artikel").Range("D2").AutoFilter _
Field:=1, Criteria1:=TextBox1.Value
ActiveWindow.ScrollRow = 1
End Sub
Private Sub TextBox1_Change()
Worksheets("Artikel").Range("D2").AutoFilter _
Field:=1, Criteria1:= "*" & TextBox1.Value
ActiveWindow.ScrollRow = 1
End Sub