Autofilter, geziehlt mehr als zwei ausblenden?

[Woofer]

Hallo zusammen,


ich möchte gerne einen Filter setzen und mehr als zwei Positionen ausblenden. 2 Funktioniert prima, mehr bekomme ich irgendwie nicht hin.

Hier ein Beispiel: Die beiden Begriffe "Baum" und ""Auto" kommen in der Tabelle nun nicht mehr vor, wie kann ich noch mehrere Begriffe geziehlt ausblenden? 

Code:

ActiveSheet.Range("$A$9:$N$500").AutoFilter Field:=2, Criteria1:="<>*Baum*", Criteria2:="<>*Auto*"

Hat jemand eine Idee?
lg & Danke wOOfer

[Fennek]

Hallo,

es geht z.B. wenn alle Filter-Werte in ein Array gepackt werden:

Code:

With Cells(1).CurrentRegion
    .AutoFilter 1, Array("aktiv", " "), xlFilterValues
    .AutoFilter
End With

mfg

[Woofer]

Danke Fennek für die Antwort. leider klappt das so nicht.

Ich möchte nicht Einträge auf "aktiv" setzen, weil diese z.T. unbekannt sind. Sondern gezielt welche ausblenden, falls sie vorhanden sind.

lg Klaus

[Fennek]

Meinst Du da so?

Code:

Sub F_en()
Dim DD As Object: Set DD = CreateObject("Scripting.Dictionary")

lr = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lr
    ret = Application.Match(Cells(i, 1), Columns(4), 0)
    If IsError(ret) Then DD(Cells(i, 1).Value) = vbNullString
Next i

With Cells(1, 1).CurrentRegion
    .AutoFilter 1, DD.keys, xlFilterValues
End With

Set DD = Nothing
End Sub

Die Daten sollten dabei so wie in der Beispieldatei sein.