Slicer items selecteren m.b.v. VBA

[ronsom]

Hallo allemaal,

Allereerst iedereen een vrolijk kerstfeest.

Voordat we aan het kerstdiner gaan ben ik met iets bezig. Ik probeer via Vba 1 enkel slicer item te selecteren. Dit heb ik gedaan met de macrorecorder.
Dus dat lukt wel. Alleen als ik de code bekijk zet Excel 1 item op True en de rest op False. Logisch want dat vraag ik van Excel.
Alleen heb ik werkelijkheid een slicer die uit meer dan 50 items kan kiezen. Als ik de code start loopt Excel alle items af en selecteert dan het goede item. Dit kost veel tijd.
Ik denk dat het wel mogelijk is dat Excel 1 item op True zet en de rest op False zonder dat hij alles doorloopt.
Ik weet alleen niet hoe, in de bijlage een voorbeeld bestand met de code zoals opgenomen met de macrorecorder.
Wil iemand mij hiermee helpen.

Vriendelijke groet,

Ronsom

 

[edmoor]

Het zal toch per stuk moeten gebeuren.
Zoiets wellicht?

Sub Sliceritems_Selecteren()
    For Each si In ActiveWorkbook.SlicerCaches("Slicer_jaar").SlicerItems
        si.Selected = Not si.Selected
    Next si
End Sub

 

[ronsom]

Hallo Edmoor

bedankt voor je reactie, ik ga aan de slag met je code.

Vriendelijke groet,

Ronsom