Private Sub CommandButton1_Click()
Cells.AutoFilter Field:=3, Criteria1:="=*" & InputBox("Gesuchter Teilstring:") & "*"
End Sub
Sobald ein Buchstabe in der Zeile steht geht es. Aber reine Zahlen kann ich damit nicht suchen. Was übersehe ich?
Oder gibt es einen 1 Zeiler der besser funktioniert?