Looping durch gefilterte Elemente in Slicer

Question

Ich versuche, ein Makro zu schreiben, aber bin gefangen. Wie erstellen Sie eine Schleife, die nur sichtbare Objekte in einem bereits gefilterten Slicer durchläuft?

Bild unten ist der Slicer, den ich verwenden möchte ("slicer_Route") und ich nur die Schleife durch die ersten 4 abgedunkelten Objekte zu durchlaufen. (Diese waren das Ergebnis einer anderen Filter)

SLICER:

Answer 1

Ich weiß nicht, was Sie tun möchten, aber das geht durch Sichtbare Objekte:

Dim sC As SlicerCache 
Dim sI As SlicerItem 

Set sC = ActiveWorkbook.SlicerCaches("Slicer_Route") 

For Each sI in sC.SlicerItems 
If sI.Selected = True Then 

Debug.Print sI.Name 'This is an example, you can do what you want with that item 

End If 

Next sI 

Wenn Sie Stellen Sie detailliertere Fragen, vielleicht erhalten Sie weitere Hilfe.