Clever-Excel-Forum

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

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

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

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.

Woofer

Fennek

Woofer

Fennek