Opgelost vba draaitabel verversen

[PaulMak]

Goedemiddag,
Ik heb een draaitabel met veld concern met daarin 1 geselecteerde waarde uit een keuze van 10 waardes
Nu wil ik de geselecteerde waarde uitbreiden naar 2 maar ik kom niet op de juiste schrijfwijze. Kan iemand mij svp helpen.

Huidige situatie

Sheets("PM").Select
        ActiveSheet.PivotTables("Draaitabel1").PivotFields("Concern").ClearAllFilters
        ActiveSheet.PivotTables("Draaitabel1").PivotFields("Concern").CurrentPage = _
        "(All)"
            ActiveWorkbook.RefreshAll
    
    
    Sheets("PM").Select
        ActiveSheet.PivotTables("Draaitabel1").PivotFields("Concern").ClearAllFilters
        ActiveSheet.PivotTables("Draaitabel1").PivotFields("Concern").CurrentPage = _
        "IDNL"

Ik wil IDNL uitbreiden met IDBE

 

[E v R]

Currentpage kan er maar 1 zijn, een mogelijkheid is om te 'loopen' door de items en (on)zichtbaar te maken.
Of (wellicht handiger) bij het maken van de draaitabel een vinkje te zetten bij "Add Data to Datamodel"
Dan kun je middels VisibleItemsList een Array toevoegen met de gewenste concerns

 

[PaulMak]

Hi E v R, dankjewel voor je reactie.

De versie visible had ik ook gezien maar dan zou ik mijn complete macro moeten ombouwen. Ik had gehoopt op een simpele oplossing zoals "IDNL; IDBE" toevoegen maar dat ik alleen de schijfwijze verkeerd had.

Ik denk dat ik door mijn beperkte VBA kennis even opnieuw ga nadenken hoe ik dit ga oplossen.

In elk geval .. super bedankt voor jouw oplossing

Groet
Paul Mak