VBA Loop door slicer items en onthoud item naam

[basschmidt]

Hi allen!

Ik ben een redelijk ervaren VBA programmeur maar heb nog nooit gewerkt met VBA gelinkt aan slicers (van pivots)
Wat ik eigenlijk wil, is dat als er een slicer wijzigt op een sheet, alle slicer settings weg geschreven worden.
Dus eigenlijk een "key" schrijven van alle opties die op dat moment actief zijn.

Eigenlijk wil ik zoiets als dit (dit werkt uiteraard niet maar voor het idee)

Sub WriteSlicerSettings()

For Each Slicer In ActiveSheet
    Debug.Print Slicer.Name
    For Each SlicerItem In Slicer
        If SlicerItem = "true" Then
            Debug.Print SlicerItem.Name
        End If
    Next
Next

End Sub

Is iemand ooit zoiets tegen gekomen?

Thanks!

Bas

 

[pixcel]

Tip 1: heb je al in de objectbrowser gekeken wat er zoal te koop is? Bijv het object SlicerItem met de eigenschap Selected. Of een collectie Slicers, dus For Each Slicer In Slicers klinkt al wat beter. Idem: For Each SlicerItem In SlicerItems.
Tip 2: een slicer is niet veel anders dan een Report filter van een draaitabel...

 

[jkpieterse]

Misschien helpt dit artikel:
www.jkp-ads.com/articles/slicers04.asp