PivotItems alleen leeg tonen

[luus1901]

Ik gebruik een draaitabel waarin het xlPageField veel verschillende items heeft.
Hiervan wil ik alleen de lege items geselecteerd hebben.

'   alleen leeg als standaard
    Cells(1, 2).Select
    On Error Resume Next
    
    With PT.PivotFields("Selectie1")
        .EnableMultiplePageItems = True
        .CurrentPage = "(All)"
        .PivotItems("(leeg)").Visible = True
    End With

Deze code werkt niet; wat doe ik fout?



16:58 Heb nog wat langer gezocht op internet en een oplossing gevonden.

Luus