Draaitabel: Binnen filter alles automatisch selecteren

[PJAA]

Op basis van een tabel heb ik een draaitabel gemaakt. In de bijgevoegde afbeelding (kiezen van projectno.'s) zie je dat niet alles geselecteerd is. Ik wil graag dat Excel automatisch alle nummers selecteert behalve leeg. De draaitabel is een selectie vanuit de tabel op basis van alle projectno.'s
Is dit te verwezenlijken met een stukje VBA ?
Groet,
PJA

 

[peter59]

Dat kan met power query maar zonder voorbeeldbestandje wordt het moeilijk.

 

[JEC.]

Kan ook achter je worksheet_activate event

Private Sub Worksheet_Activate()
 With Me.PivotTables("Draaitabel1").PivotFields("Projectno.")
   .ClearAllFilters
   .PivotItems("(blank)").Visible = False
 End With
End Sub

 

[PJAA]

Dat stukje code werkt, althans... Ik heb aanpassingen in mijn tabel gedaan. Als ik dan naar VBA ga en op uitvoeren druk, doet hij precies wat ik wil. Hoe kan ik het voor een gebruiker makkelijker maken, via een knop of iets dergelijks ?

 

[JEC.]

Hang het aan bvb een shape of commandbutton, als normale sub

 

[PJAA]

Denk dat ik iets fout doe.... krijg als foutmelding "ongelding gebruik van het sleutelwoord Me"



Sub Afgeronderechthoek1_Klikken()
With Me.PivotTables("Draaitabel1").PivotFields("Projectno.")
.ClearAllFilters
.PivotItems("(blank)").Visible = False
End With
End Sub

 

[JEC.]

Gebruik ipv Me. bvb Activesheet.