Filter mit mehreren Kriterien
09.10.2020 12:20:08
Richi
Habe 2 Tabellen (Quelle & Ziel) beides sind formatierte Tabellen.
Ich möchte nun in Ziel / Spalte A einen Autofilter setzen welcher alle in in Quelle hinterlegten Daten als Selektionskriterien für den Filter verwendet.
Hierzu hab ich folgenden Code zusammengestellt welcher aber nicht funktioniert und ich komm nicht darauf warum.
Mir schein Array der richtige Weg zu sein. Bin mir da nicht sicher.
https://www.herber.de/bbs/user/140761.xlsm
Sub Autofilter()
Dim wb As Workbook
Dim WsZ As Worksheet
Dim wsQ As Worksheet
Dim x As Long
Dim lz As Long
Set wb = ThisWorkbook
Set wsQ = wb.Worksheets(""Quelle"")
Set WsZ = wb.Worksheets(""Ziel"")
lz = Cells(wsQ.Rows.Count, ""A"").End(xlUp).Row
MeinArr = wsQ.Range(Tabelle2)
MeinArr = rg
WsZ.Range.Autofilter Field:=1, Operator:= _
xlFilterValues, Criteria2:=Array(1, rg)
End Sub