VBA Filterung Laufzeitfehler'1004'
11.07.2018 10:35:45
Jkuchler
bin derzeit dabei Filterungen mit VBA zu regeln. Ich hab es schon für einige gemacht und das ganze war auch erfolgreich Code der funktioniert:
Dim Feld(1)
Art = Worksheets("Filterung").Range("E8").Value
For a = 0 To 17
Projekttyp = Worksheets("Checkliste6.0").Cells(2, 9 + a).Value
If Art = Projekttyp Then
Feld(0) = 7 + a
Worksheets("Checkliste6.0").AutoFilter.Range.AutoFilter Field:=Feld, Criteria1:="j", Operator:=xlFilterValue
Exit For
End If
Next
Der funktioniert ohne Probleme mit dem Array.
Nun will ich noch einen anderen Teil der Tabelle in dein dem gleichen Tabellenblatt mit einem extra Modul filtern: dabei kommt folgender Code raus:
Dim Feld(1)
If Worksheets("Filterung").Range("O14") = "x" Then
Feld(0) = 43 + a
Worksheets("Checkliste6.0").AutoFilter.Range.AutoFilter Field:=Feld, Criteria1:="="
End If
Nun macht er "witzigerweise" die Filterung; also im Tabellenblatt funktioniert die Filterung, aber dann zeigt er den typischen Fehler 'Laufzeitfehler 1004 Die AutoFilter-Methode des Range Objektes konnte nicht ausgeführt werden'
Wenn ich das ganze "hardcode" sprich in diesem Fall die 43 statt dem Array in die Anweisung schreibe funktioniert es ohne Probleme.
Ich würde es aber gerne mit Array machen, sodass ich mehrere Spalten filtern kann.
Hat jemand eine Idee an was es liegen könnte?