Aus einer Tabelle werden Daten ausgelesen die zuvor per Autofilter gefiltert wurden.
Die Kriterien sind im Makro angegeben. Hier der entsprechende Ausschnitt des Codes:
Sub Makro1()
ActiveSheet.Range("$A$3:$BN$1146").AutoFilter Field:=2, Criteria1:=Array("Kriteria-01", " _
Kriteria-03", "Kriteria-04", "Kriteria-06", "Kriteria-08", "Kriteria-10"), Operator:= xlFilterValues
End Sub
Das Array würde ich gerne dahingehend ersetzen das hier die einzelnen Werte aus einer Tabelle (siehe unten) ausgelesen werden. Und zwar nur das Kriterium wo das x steht. So müssen evt. Änderungen dann nicht immer direkt im Makro durchgeführt werden. Ist dies möglich?
Gruß
Markus
x Kriteria-01
Kriteria-02
x Kriteria-03
x Kriteria-04
Kriteria-05
x Kriteria-06
Kriteria-07
x Kriteria-08
Kriteria-09
x Kriteria-10
Kriteria-11