Filterstring zusammensetzen
02.02.2020 12:07:57
T.Kahnt
Eine Person ist in meiner Tabelle an drei Projekten beteiligt.
ein Tabellenfilter auf diese Person liefert in einer anderen Spalte drei verschiedene Projektnummern als Ergebnis.
Ich möchte jetzt, per VBA, die angezeigten Projektnummern als Filterstring (Array) auslesen und dieses Ergebnis dann als Filter setzen.
Als Ergebnis sollen dann die kompletten Projekte, an denen die vorher gefilterte Person beteiligt ist, angezeigt werden.
Das aufgezeichnete Makro zum Beispielfall sieht folgendermaßen aus:
Sub BeispielArray()
' FilterString aufgezeichnet
ActiveSheet.Range("$B$3:$F$250").AutoFilter Field:=2, Criteria1:=Array( _
"292060/01/1", "292060/02/3", "292060/02/5"), Operator:=xlFilterValues
End Sub
Ich schaffe es leider nicht, den String für das Array selbst (korrekt) zu erstellen und zu übergeben.
Hat jemand vielleicht eine Idee, oder sogar eine Lösung?
Ich habe eine Beispielmappe angehängt
https://www.herber.de/bbs/user/134922.xlsm
Dank an Euch im Vorwege und ein schönes Wochenende
Thomas