Alle PivotItems einblenden
20.12.2016 11:43:12
Dirk
wieso funktioniert der folgende Code nicht?
Sub Makro2()
Dim Field As PivotField
Dim Pivot_Item As PivotItem
With ActiveSheet.PivotTables("PivotAdressaten").PivotFields("Verteiler")
For Each Pivot_Item In Field.PivotItem
Pivot_Item.Visible = True
Next Pivot_Item
End With
End Sub
Vielen Dank!
Dirk