ich habe folgenden Code in der Recherche (angepaßt auf meine Tabelle) gefunden:
Sub aufraeumen()
Dim f, i
'Alle anzeigen bei Seitenüberschrift:
ActiveSheet.PivotTables("Gesamt").PivotFields("UKA").CurrentPage = "(Alle)"
'Alle anzeigen bei anderen Feldern:
For Each f In Sheets("Ratio n.Mon.").PivotTables("Gesamt").PivotFields
For Each i In f.PivotItems
i.Visible = True
Next i
Next f
End Sub
Funktioniert sowohl für das Seitenfeld als auch für das 1. Spaltenfeld ("Abt."). Ich bekomme es einfach nicht hin, dass es auch für das 2. Spaltenfeld ("HG") funktioniert.
Seht ihr, was der Grund sein könnte?#
https://www.herber.de/bbs/user/25730.xls
Danke schon mal...
Gruß
Jutta