Office: (Office 2010) Pivot Tabelle per VBA zuklappen

Hallo,

ich versuche schon seit Tagen eine lösung im netzt zu suchen doch leider ohne erfolg....

Ich habe eine Pivot Tabele die ich per Button (dabinter VBA) aktualisiren lasse, was auch super geht ... voch die Datenmänge ist so gros das die Tabelle dann sehr unübersichtlich ausschaut ...

Darum möchte ich nach der Aktualisirung per VBA das die Pivot automatisch im zugeklappten zusatand zu sehen ist und ich dann mit dem + sie erst selber aufklappen kann.

Kennt einer von eich den VBA Code dafür ich google mir schon einen ab ... es geht zwar manuell oben in der Leiste wenn man relatif weit links auf das - oder + geht aber ich will esper VBA da die liste nicht mur ich bearbeite sonder sehr viele andere auch.

danke schon mal für eure hilfe

:)

 

Moin,

sowas gibt einem der Makrorekorder zurück, wenn man das Reduzieren der Tabelle aufzeichnet, kannst Du damit was anfangen?
Code:

wobei Du natürlich den namen Deiner Tabelle und Deines Feldes einsetzen musst.

Grüße, André

 

daran habe ich auch schon gesacht aber es sind zu viele ... dachte dasman per VBA einfach sagen kann alles schlissen und gut ist

 

Das verstehe ich nicht, warum ist das wichtig, wieviele es sind? Hast Du so viele Felder oder Datensätze? Das geht auch bestimmt mit ner Schleife...

Grüße,
André

 

ich habe 20000 datensatze die in der Pivot Tabele sortiert und angezeigt werden in in ca 500 bereichen und dann schaut das echt übel aus wenn das nicht zu ist ... darum wolte ich es nach derAktualisirung sofort zu haben und dann nur den Baum auf machen der in dem moment wichtig ist

 

Grüezi PSZepan

Versuche es mal mit dem folgenden Code, den Du dann jeweils nach dem Aktualisieren der PT laufen lässt:

Code: