Im Moment programmiere ich, um einen Filter für ein Datendiagramm festzulegen. Grundsätzlich weiß ich nicht, wie ich das Datenblatt hier oben posten soll, also versuche sie einfach einzutippen.

(von links beginnend ist Spalte A) Name * BDevice * Menge * Verkauf * Eigentümer

Grundsätzlich muss ich nach 2 Spalten filtern: - Das BDevice mit einem beliebigen Wort enthält "M1454" oder "M1467" oder "M1879" (dies bedeutet, dass M1454A oder M1467TR noch passen würden) - Der Besitzer mit PROD oder RISIKO

Hier ist der Code, den ich geschrieben habe:

Sub AutoFilter()

  ActiveWorkbook.ActiveSheet..Range(B:B).Select

  Selection.Autofilter Field:=1 Criteria1:=Array( _
      "*M1454*", "*M1467*", "*M1879*"), Operator:=xlFilterValues

  Selection.AutoFilter Field:=4 Criteria1:="=PROD" _
      , Operator:=xlOr, Criteria2:="=RISK"

End Sub

Wenn ich den Code ausführe, gibt der Computer den Fehler 1004 zurück und der Teil, der falsch zu sein scheint, ist der Filter-Teil 2 (ich bin mir nicht sicher über die Verwendung von Field, daher kann ich es nicht sicher sagen).

Bearbeiten; Santosh: Wenn ich Ihren Code ausprobiere, wird der Index für Fehler 9 außerhalb des gültigen Bereichs angezeigt. Der Fehler kam von der with-Anweisung. (Da die Datentabelle die Spalte A zu AS enthält, wechsle ich einfach zu A: AS.)