in einer Pivot soll jeder Eintrag (Ausnahme 0 und #NV) eines bestimmten Filters aufgerufen werden. Es soll ein bereits fertiggestelltes Makro folgen. Dann soll das Makro für den nächste Filtereintrag usw. laufen.
Wie kann ich das umsetzen?
BG Jens
Sub t()
Dim objArrLst As Object, Mein_Array As Variant, L As Long
Set objArrLst = CreateObject("System.collections.arraylist")
Mein_Array = Application.Transpose(Worksheets("Tabelle1").Range("A1:A10").Value) 'anpassen
For L = LBound(Mein_Array) To UBound(Mein_Array) - 1
If objArrLst.Contains(Mein_Array(L)) = False Then
objArrLst.Add Mein_Array(L)
End If
Next
Erase Mein_Array
With objArrLst
.Sort
Mein_Array = .ToArray
End With
Set objArrLst = Nothing
' Demo Ausgabe Resultat
For L = LBound(Mein_Array) To UBound(Mein_Array)
Debug.Print Mein_Array(L)
Next L
End Sub
Quelle: http://www.office-loesung.de/ftopic142856_0_0_asc.php