Autofilter mit mehreren Kriterien/Spalte
17.05.2021 17:47:15
Philip
ich habe eine Datei in der ich in der Spalte "A" nach gewissen Kriterien filtern möchte (siehe Sub Bikeparts_MRI). Das funktioniert wunderbar. Nun möchte ich diese Filter verfeinern und in Spalte F den Filter verfeinern indem ich bestimmte Werte ausschließe (siehe Sub Bikeparts_MRI2). Der zweite Code gibt mir aber immer einen "Laufzeitfehler 1004" zurück. Wo ist der Fehler?
Grüße Philip
Sub Bikeparts_MRI()
If Workbooks("Gesamtkundenliste.xlsx").Worksheets("Tabelle1").AutoFilterMode Then Workbooks("Gesamtkundenliste.xlsx").Worksheets("Tabelle1").AutoFilterMode = False
Dim rngFilterRange As Range
Dim lngCriteriaCount As Long
Dim arrCriteria() As String
lngCriteriaCount = 26
ReDim arrCriteria(0 To lngCriteriaCount - 1)
arrCriteria(0) = "60"
arrCriteria(1) = "61"
arrCriteria(2) = "62"
arrCriteria(3) = "63"
arrCriteria(4) = "40"
arrCriteria(5) = "41"
arrCriteria(6) = "42"
arrCriteria(7) = "43"
arrCriteria(8) = "44"
arrCriteria(9) = "45"
arrCriteria(10) = "46"
arrCriteria(11) = "47"
arrCriteria(12) = "76"
arrCriteria(13) = "50"
arrCriteria(14) = "51"
arrCriteria(15) = "52"
arrCriteria(16) = "53"
arrCriteria(17) = "54"
arrCriteria(18) = "55"
arrCriteria(19) = "56"
arrCriteria(20) = "64"
arrCriteria(21) = "65"
arrCriteria(22) = "66"
arrCriteria(23) = "67"
arrCriteria(24) = "68"
arrCriteria(25) = "69"
Set rngFilterRange = Workbooks("Gesamtkundenliste.xlsx").Worksheets("Tabelle1").Range("A1:R1")
rngFilterRange.AutoFilter Field:=1, _
Criteria1:=arrCriteria(), _
Operator:=xlFilterValues
Call Bikeparts_MRI2
End Sub
Sub Bikeparts_MRI2()
If Workbooks("Gesamtkundenliste.xlsx").Worksheets("Tabelle1").AutoFilterMode Then Workbooks("Gesamtkundenliste.xlsx").Worksheets("Tabelle1").AutoFilterMode = False
Dim rngFilterRange As Range
Dim lngCriteriaCount As Long
Dim arrCriteria() As String
lngCriteriaCount = 10
ReDim arrCriteria(0 To lngCriteriaCount - 1)
arrCriteria(0) = "*761*"
arrCriteria(1) = "*762*"
arrCriteria(2) = "*763*"
arrCriteria(3) = "*764*"
arrCriteria(4) = "*765*"
arrCriteria(5) = "*766*"
arrCriteria(6) = "*767*"
arrCriteria(7) = "*769*"
Set rngFilterRange = Workbooks("Gesamtkundenliste.xlsx").Worksheets("Tabelle1").Range("A1:R1")
rngFilterRange.AutoFilter Field:=6, _
Criteria1:=arrCriteria(), _
Operator:=xlFilterValues
End Sub
