VBA: AutoFilter Kriterium mit Variable setzten

[raumgleita]

Hallo zusammen!

Ich habe eine for Schleife und möchte damit mehrere AutoFilter Kriterien setzen:

For g = 1 To Selection.Areas(1).Rows.Count
 
            Worksheets("Server List Comment Log").Range("$A$1:$E$" & lastCellCL).AutoFilter Field:=1, Criteria1:=Selection.Areas(1).Cells(g, 1).Value
        Next

Jetzt müsste ich das Kriterium dem Zähler der for Schleife anpassen. Wie setze ich das Zusammen? Wie ein mit strings geht es nicht: Criteria & i

Gruss
raumgleita

 

[Mr. Snoot]

Du kannst in einem rutsch mehrere Filter setzen:

Worksheets("Server List Comment Log").Range("$A$1:$E$" & lastCellCL).AutoFilter Field:=1, [COLOR="Red"]Criteria1:=Array("filter1", "filter2", "filter3", ...)[/COLOR]

 

[raumgleita]

Danke für deine Antwort. Hab die Lösung. Ich fülle in der For - Schleife alle Kritierien in den Array:

For g = 1 To Selection.Areas(1).Rows.Count
myArray(g) = Selection.Areas(1).Cells(g, 1).Value
Next

Und setze als Kriterium den ganzen Array mit dem Operator. Ohne Operator wird nur das letzte Element als Kriterium gesetzt.
Criteria1:=myArray(), Operator:=xlFilterValues

*closed*

 

[Hiskai]

Hallo

weiß jemand ob man sowas auch unter 2003 zum Laufen bekommt?