ich möchte mit VBA eine Tabelle(1) mit den Werten aus Tabelle(2) als Mehrfachauswahl filtern.
Lösungsversuch: Ich habe für die Tabelle(2) einen Namensmanager (Bezeichnung "Filter") definiert. Als Beispiel soll der Namensmanager/ die Tabelle(2) die Werte "Apfel", "Tomate", "Banane" umfassen. Anschließend soll das Makro die Tabelle(1) nach den x-beliebigen Werten des Namensmanagers/der Tabelle(2) filtern.
Mein Code lautet wie folgt:
Sub Filtern()
x = Evaluate("Filter") 'Die Formel liest den Namensmanager aus. Als Werte verwende ich die _
Platzhalter ("Apfel", "Tomate", "Banane")
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=1, Criteria1:=x, Operator:= _
xlFilterValues 'Es wird nur nach dem ersten Wert "Apfel" gefiltert
' Mit fixen Werten würde das ganze so funktionieren:
ActiveSheet.ListObjects("Tabelle1").Range.AutoFilter Field:=1, Criteria1:=Array("Apfel", " _
Tomate", "Banane"), Operator:=xlFilterValues
End Sub
Leider liefert mein Lösungsversuch nur den einfachen Filter ("Apfel"), anstatt die Tabelle nach allen x-beliebigen Filtern ("Apfel", "Tomate", "Banane") zu filtern. Ich hoffe ihr könnt mir mit meinem Problem weiterhelfen!PS: Der Lösungsversuch mit dem Namensmanager ist nur optional.
Vielen Dank vorab für eure Unterstützung!