VBA Berichtsfilter / Array's

[Look4Fun]

Guten Morgen,

ich habe mir mittels folgender Befehle von meinen Produktcodes eine Auswahlliste erstellt:

Dim varProduktcode As Variant
varProduktcode = Array("S100", "S101", "S110", "S112", "S115", "S116", "S119", "S120", "S121", "S122", "S123", "S130", "S131", "S150", "S200", "S210")

Nun möchte ich diese als BERICHTSFILTER einsetzen - habe aber keine Ahnung wie :22: -

Bitte um Eure Hilfe

Danke schon mal im Voraus
Look4Fun

[schauan]

Hallo Look4Fun,

Du könntest den code dafür aufzeichnen. Da kommt in etwa so etwas raus:

Selection.AutoFilter
ActiveSheet.Range("$A$1:$G$192").AutoFilter Field:=2, Criteria1:="aaa"


Das Criteria kannst Du nun mit einem Arrayelement füllen.
Willst Du gleichzeitig nach mehreren Elementen Filtern, zeichne es so auf und übergib fie Elemente entsprechend.