Filter
08.12.2013 15:33:30
Jörg
ich habe ein Problem mit dem Filter über eine Inputbox.
Ich möchte das alle Begriffe in Spalte B gesucht und gefiltert werden. Im Moment funktioniert der Filter nur wenn der eingegebene Begriff mit dem ersten Wort in der Zelle übereinstimmt.
Als Beispiel:
In der Zelle steht 'Auto Meier Tutlingen' und ich gebe Auto in die Inputbox ein, wird richtig gefiltert.
Wenn ich aber nur 'Meier' oder 'Tutlingen' eingebe funktioniert das nicht mehr.
Kann man sowas ändern?
Sub Filter()
Dim Eingabe As String
Eingabe = Application.InputBox("Suchbegriff eingeben:", "Filter...") & "*"
Selection.AutoFilter Field:=2, Criteria1:=Eingabe, Operator:=xlAnd, Criteria2:=Eingabe
End Sub
Anzeige