Filterkriterien aus einer Liste
07.11.2018 13:37:35
Thomas
ich möchte gerne eine Tabelle ( Tabell1 A4:z100 ) ab Zeile 15 Filtern.
Die Filterkriterien ( Kästchen zum anhaken) stehen in Spalte D.
Die Filterkriterien ( welche anzuhaken sind) stehen in der Tabelle3 B4:B20.
Dazu habe ich schon ewig gesucht und so etwas in der Art gefunden.
Aber ich schaffe es einfach nicht anzupassen.
Kann mir hier jemand bei helfen?
Ich schaff das einfach nicht.
Sub test()
Dim arr1, arr2
Dim Z As Long
arr1 = Range("A1:A10").Value
ReDim arr2(1 To UBound(arr1, 1)) As String
For Z = 2 To UBound(arr1)
Select Case arr1(Z, 1)
Case 1, 3, 5, 7 'Worksheets("Tabelle3").Range("B4:B20").Value
Case Else
arr2(Z) = CStr(arr1(Z, 1))
End Select
Next
Range("$A$1:$A$10").AutoFilter Field:=1, Criteria1:=arr2, Operator:=xlFilterValues ' soll aber _
nicht ausblenden sondern diese sollen bleiben
End Sub
MFG Thomas