wie kann ich per VBA alle PivotItems einer Pivot-Tabelle ausblenden lassen?
Vielen Dank schon einmal.
Daniel
Private Sub CommandButton1_Click()
Dim PT As PivotTable
Dim Zelle As Range
Set PT = Worksheets("Tabelle1").PivotTables(1)
PT.RowFields(1).DataRange.Select
For Each Zelle In Selection
Zelle.EntireRow.Hidden = True
Next Zelle
End Sub
Vielleicht passts.
Viele Grüße
Herby