Autofilter limitiert?

[jassonmc]

Hallo allerseits

Ziel ist es, dass ich mittels Autofilter mehrere Werte rausfltern kann, im Beispiel alle Vorkommen der Zahlen 10, 22 und 10010 in Spalte 6.
Folgendes Script habe ich dazu, was aber leider nicht klappt:

Sub AutoFilterEID()

Dim pm as Object
Set pm = CreateObject("PlanMaker.Application")
pm.Visible = True
pm.Activate

pm.Application.ActiveSheet.Range("A1:H100000").AutoFilter 6, "<>10"
pm.Application.ActiveSheet.Range("A1:H100000").AutoFilter 6, "<>22"
pm.Application.ActiveSheet.Range("A1:H100000").AutoFilter 6, "<>10010"

End Sub


Hat da jemand eine Idee?

Viele Grüsse
Juri

[SuperTech]

Danke, dass Sie dieses Problem mit uns teilen. Gegenwärtig haben AutoFilter Einschränkungen beim gleichzeitigen Hinzufügen von zwei Kriterien. Wir können nicht drei Kriterien hinzufügen. Hier ist der modifizierte Code für Sie:

Code: Alles auswählen

Sub AutoFilterEID ()

Dim pm as Object
Set pm = CreateObject ("PlanMaker.Application")
pm.Visible = True
pm.Activate

pm.Application.ActiveSheet.Range("A1:H100000").AutoFilter 6, "<>10", 1, "<>22"

End Sub