Pivotauswahl zurücksetzen mit VBA
08.12.2006 09:35:22
Ronny
ich habe ein schwieriges Problem mit meinen 6 Privotberichten!
PROBLEM:
Ich habe mehrere Pivotberichte mit jeweils ca. 240 Pivofeldern im Zeilenbereich und einem Feld im Seitenbereich. Wenn man nun dort irgendwo eine Auswahl trifft und dann hin und her scrollt, kann es sein dass man vergisst in welchen Pivotfeld man eine Auswahl vorgenommen hattte und so nun alle Pivotfelder durchsuchen muss bis man das findet indem man die Auswahl getroffen hatte, um diese zurückzusetzen.
IDEE:
Deswegen wollte ich eine Art Aufräum-BUTTON erschaffen, der alle Pviotfelder wieder so zurücksetzt, dass diese wieder den Haken bei "Alle anzeigen" drin haben! Dabei muss man aufpassen, da man ja im Seitenfeld keine Häkchen setzen kann, sondern nur eine einzelauswahl vornehmen kann.
CODE:
'Meine jetzige VBA-Lösung die leider noch nicht funktioniert ist
Private Sub Test_Aufraeumen_Click()
Dim f, i
'Alle anzeigen bei Seitenüberschrift
ActiveSheet.PivotTables(1).PivotFields("Marke").CurrentPage = "(Alle anzeigen)"
'Alle anzeigen bei anderen Feldern:
For Each f In Sheets("Pivot").PivotTables(1).PivotFields
For Each i In f.PivotItems
i.Visible = True
Next i
Next f
End Sub
FEHLER:
Bekomme immer die Fehlermeldung "Die PivotFields-Eigenschaft des PivotTable-Objekts kann nicht zugeordnet werden." (Laufzeitfehler 1004)
Was läuft da schief???
Hat bitte jemand eine zündende Idee wie ich dies mit VBA lösen kann bzw. was ich falsch mache??? kann??? Bin für jede Hilfe!
Gruß,
Ronny