|
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
|