Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Tomschi vom 29.05.2020, 16:10 Options

VBA - Pivottabelle aktualisieren

Hi!

Vielleicht kann mir trotz der Hitze jemand helfen. ;-)

Ich habe ein bestehendes Tabellenblatt mit mehreren Pivottabellen.
Nunmehr möchte ich, dass sämtliche Pivottabellen beim Aktivieren des Blattes aktualisiert werden.

Ich habe dazu mal mit dem Rekorder einen Mustercode aufgezeichnet und dabei u. a. folgendes erhalten:

ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh

Soweit so gut.
Wie kann ich feststellen, wie sämtliche vorhandenen Pivottabellen heissen?

Bei einem zweiten Versuch wurde ...PivotTable33... angezeigt. Die Tabelle hat aber "nur" 15 Pivottabellen.
Mein Vorgänger muss also ein paar Mal herumexperimentiert haben, oder?

Kann man mit einem Befehl alle auf einmal aktualisieren?

Danke für die Hilfe!

Tom

Antwort schreiben

Antwort 1 von Marie vom 30.05.2020, 01:39 Options

probier mal

Dim pvtbl as PivotTable

For Each pvtbl In ActiveSheet.PivotTables
   ......

Next

Gruß Marie

Antwort 2 von Tomschi vom 30.05.2020, 06:17 Options

Guten Morgen Marie!

Klingt vielversprechend.
Werde ich dann mal ausprobieren.

Ich habe gestern noch zufällig gelesen, dass man auch den Befehl RefreshAll verwenden kann.

Weisst Du zufällig welche
Vor- bzw. Nachteile dieser mitsichbringt?

Ciao

Tom

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken