Hallo Zusammen, 

ich hätte nochmals eine Frage - ich komm leider nicht mehr so richtig weiter :( 

Und zwar hab ich in Tabelle2 Spalte S verschiedene Sachnummern.

Die Anzahl der Sachnummern kann jedoch variieren. (Max. bis zu 15 Sachnummern) 

In Tabelle 1 hab ich nun meine Datenbank wo ich in Spalte F nach all den Sachnummern aus Tabelle 2 filtern möchte. 

Lt. meinen Recherchen haben mich auf diesen Code gebracht bzw. weiss ich, dass man dazu ein Array braucht aber ganz ehrlich ich steh komplett an...

Sub test()
Dim arr1, arr2
Dim Z As Long

arr1 = Range("A1:A100").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
        Case Else
            arr2(Z) = CStr(arr1(Z, 1))
    End Select
Next

Range("$A$1:$A$100").AutoFilter Field:=1, Criteria1:=arr2, Operator:=xlFilterValues

End Sub

ich schaff es aber leider nicht diese auf meinen Code zu integrieren. 

Wärt ihr so lieb mir zu helfen? 

Dankeschön

Julia