Ich habe eine Tabelle, in der ich alle umgeschalteten Werte zurückgeben muss. Wenn ich ein Makro aufzeichne, nachdem ich ausgewählt habe, welches ich möchte, sieht es so aus:

ActiveSheet.Range("$A$1:$P$1000").AutoFilter Field:=6, Criteria1:=Array("A" _
    , "B", "C", "D", "E", "G"), Operator:=xlFilterValues

das Problem, das ich habe, ist, dass die Werte a, b, c usw., die vom Benutzer gefiltert werden, sich immer ändern, so dass ich keine Kriterien auf diese Weise fest codieren kann.

Gibt es eine Möglichkeit, wie ich ein Array von dem zurückgeben kann, worauf umgeschaltet wird, ähnlich wie dies aussieht?

msgbox ActiveSheet.Range("$A$1:$P$1000").criteria1