Option Explicit
Sub FilternMitArray()
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Dim arr() As String
Dim rng As Range
Dim x As Long
Set wksQuelle = ThisWorkbook.Worksheets("Tabelle2")
Set wksZiel = ThisWorkbook.Worksheets("Tabelle1")
With wksQuelle
Set rng = .Range(.Cells(2, "S"), .Cells(.Rows.Count, "S").End(xlUp))
ReDim arr(1 To rng.Cells.Count)
End With
For x = 1 To rng.Cells.Count - 1 Step 1
arr(x) = rng.Cells(x, 1).Value2
Next
With wksZiel
If .AutoFilterMode = True Then
.AutoFilterMode = False
End If
.Range("F1").AutoFilter Field:=1, Criteria1:=arr, Operator:=xlFilterValues
End With
Set rng = Nothing
Set wksQuelle = Nothing
Set wksZiel = Nothing
End Sub