Live filter + dropdown auswahl
02.04.2021 09:35:48
Kevin
Ich verwende folgenden Code um in einer Tabelle namens "Data" live die namen zu filtern.
Private Sub TextBox1_Change()
Application.ScreenUpdating = False
ActiveSheet.ListObjects("Data").Range.AutoFilter Field:=1, Criteria1:="*" & [B1] & "*", _
Operator:=xlFilterValues
Application.ScreenUpdating = True
End Sub
Dafür nutze ich eine Textbox zur Eingabe. Der Filter in Spalte 1 funktioniert wunderbar.
Nun zur Frage:
Ist es möglich noch eine Auswahl hinzuzufügen, so dass am Ende immer nur exakt ein Name verbleibt?
Beispiel : Ich habe 100 Namen und 2 Kollegen heißen beide "Hoffmann". Einer heißt Hoffmann,Christian und der andere Hoffmann,Gerd. Der Live filter per Textbox würde momentan so lange beide Namen anzeigen bis ein Unterschied erkennbar wäre und erst dann würde ein Name verbleiben.
Ist es möglich diesen Vorgang mit einem Dropdown zu koppeln?
Gibt es eine andere elegantere Lösung?
Danke an alle klugen Köpfe im Voraus !
Anzeige