AW: Array aus gefilterter Tabelle erstellen
30.06.2021 20:57:50
Daniel
Hi
wenn ich es richtig verstanden habe, dann so:
Sub test()
Dim dic As Object
Dim arr
Dim z As Long
Dim I, K
Set dic = CreateObject("scripting.dictionary")
'--- Standorte zu einem Kennzeichen sammeln, zuächst als Textstring
arr = Range("A1").CurrentRegion.Value
For z = 2 To UBound(arr, 1)
dic(arr(z, 1)) = dic(arr(z, 1)) & ";" & arr(z, 2)
Next
'--- Textstrings der Standorte in Array wandeln
For Each K In dic.Keys
dic(K) = Split(Mid(dic(K), 2), ";")
Next
'beispielandwendung filtern nach den Orten von AB-C1007
ActiveSheet.Cells(1, 1).AutoFilter Field:=2, Criteria1:=dic("AB-C 1007"), Operator:=xlFilterValues
End Sub
mit dem Dictionary-Objekt solltest du dich mal vertraut machen.
Gruß Daniel