Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Pivots aktualisieren

46 views
Skip to first unread message

Lutz E. Cerning

unread,
Feb 18, 2012, 12:35:37 PM2/18/12
to
Hallo allerseits,
mit F9 werden ja bei Bedarf die Formeln neu berechnet.
Dumerweise werden nicht meine -zig Pivottabellen mit aktualisiert :-(

Gibt es einen Weg, in einem (mehrseitigen) Sheet ALLE Pivottabellen
aktualisiren zu lassen ohne das Blatt schlieï¿œen und wieder ï¿œffnen zu
mï¿œssen?

--
Grￜￜe von LutzeC*54 aus
(ca.) 52.64736,13.550518


Volker Neurath

unread,
Feb 18, 2012, 2:56:24 PM2/18/12
to
Lutz E. Cerning wrote:

> Hallo allerseits,
> mit F9 werden ja bei Bedarf die Formeln neu berechnet.
> Dumerweise werden nicht meine -zig Pivottabellen mit aktualisiert :-(

Richtig, die müssen separat aktualisiert werden.

> Gibt es einen Weg, in einem (mehrseitigen) Sheet ALLE Pivottabellen
> aktualisiren zu lassen ohne das Blatt schließen und wieder öffnen zu
> müssen?

XL10: in die Pivottabelle klicken, dann erscheint ein Reiter "Pivot Tools"
(oder so ähnlich)

Da klicken, dort gibt es im Ribbon euch einen Button "Pivot aktualisieren"
(der sieht optisch so ähnlich aus, wie der "Aktualisiern" Button eines
Browsers)

Volker
--
Im übrigen bin ich der Meinung, dass TCPA/TCG verhindert werden muss

Wenn es vom Himmel Zitronen regnet, dann lerne, wie man Limonade macht

Robert Feldmann

unread,
Feb 18, 2012, 4:57:44 PM2/18/12
to
Hallo Lutz,

manuell wie von Volker beschrieben. Ich bevorzuge ein kleines Makro im
Aktivate Ereignis des Arbeitsblattes mit der Pivot Auswertung. Dieses
aktualisiert dann das Blatt beim Aktivieren des Blattes.

Ist der Bereich der Auwertung dann noch über einen Bereichsnamen mit
"bereich.verschieben" als Variabel deklariert, hast Du immer eine
aktuelle Auswertung.

Das sieht in 2007 so aus:

Private Sub Worksheet_Activate()
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End Sub

Der Name "PivotTable1" ist der, den Du beim Erstellen der Pivot vergeben
hast, musst Du also ggf. je Blatt anpassen.

Schönen Sonntag
Robert


Am 18.02.2012 18:35, schrieb Lutz E. Cerning:
> Hallo allerseits,
> mit F9 werden ja bei Bedarf die Formeln neu berechnet.
> Dumerweise werden nicht meine -zig Pivottabellen mit aktualisiert :-(
>
> Gibt es einen Weg, in einem (mehrseitigen) Sheet ALLE Pivottabellen
> aktualisiren zu lassen ohne das Blatt schließen und wieder öffnen zu
> müssen?
>

--
Nicht was Du sagst ist entscheidend, sondern was verstanden wird.

Lutz E. Cerning

unread,
Feb 19, 2012, 1:52:01 AM2/19/12
to
Volker Neurath schrieb :

> Da klicken, dort gibt es im Ribbon euch einen Button "Pivot
> aktualisieren" (der sieht optisch so ähnlich aus, wie der

Danke.
Das kenne ich. Da werden ALLE (es sind wirklich -zig auf viele Seiten
verteilt) Pivots aktualisiert?

--
Grüße von LutzeC*54 aus
(ca.) 52.64736,13.550518


Volker Neurath

unread,
Feb 19, 2012, 1:02:39 PM2/19/12
to
Lutz E. Cerning wrote:

> Danke.
> Das kenne ich. Da werden ALLE (es sind wirklich -zig auf viele Seiten
> verteilt) Pivots aktualisiert?

Leider nicht. Das müsstest du dann manuell für jedes Pivot einzeln machen.

Oder du nutzt Roberts Lösung.

Rainer Georg Blankenagel

unread,
Feb 19, 2012, 4:19:04 PM2/19/12
to
Volker Neurath <Volker Neurath <nean...@gmx.de>>:

> Lutz E. Cerning wrote:
>
>> Danke.
>> Das kenne ich. Da werden ALLE (es sind wirklich -zig auf viele Seiten
>> verteilt) Pivots aktualisiert?
>
> Leider nicht. Das müsstest du dann manuell für jedes Pivot einzeln machen.

Die Pivottabellen sollte man in einer For ... Each - Schleife durchlaufen
und darin aktualisieren können.

Ungetestet irgendwie sowas:

------------------------------------------
Dim P as PivotTable

For Each P in ActiveWorkbook.PivotTables
P.Refresh
Next P
------------------------------------------

Ich habe dumpf im Hinterkopf, daß der Zugriff auf Pivottabellen irgendwie
etwas fummeliger ist als ich das hier formuliere, aber das Prinzip sollte
funktionieren.


Rainer

Claus Busch

unread,
Feb 19, 2012, 4:36:43 PM2/19/12
to
Hallo Rainer,

Am Sun, 19 Feb 2012 22:19:04 +0100 schrieb Rainer Georg Blankenagel:

> Ungetestet irgendwie sowas:
>
> ------------------------------------------
> Dim P as PivotTable
>
> For Each P in ActiveWorkbook.PivotTables
> P.Refresh
> Next P

probiers mal so:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim pt As PivotTable
For Each pt In Sh.PivotTables
pt.PivotCache.Refresh
Next pt
End Sub


Mit freundlichen Grüßen
Claus Busch
--
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

A. Schmitt

unread,
Feb 29, 2012, 4:13:51 PM2/29/12
to
Hallo,

versuche es mal mit einem dieser Codes:

Makro ins Worksheet einbinden, in der sich die (mehrere auf einem Sheet)
Pivot-Tabellen befinden.
Private Sub Worksheet_activate()
Dim WB As Worksheet
Set WB = ThisWorkbook.Worksheets("test")
piv = WB.PivotTables.Count 'Pivots zählen.
For i = 1 To piv
WB.PivotTables(i).PivotCache.RefreshOnFileOpen = True 'Automatisches
Refresh aktivieren.
WB.PivotTables(i).PivotCache.Refresh 'und Refresh, wenn Worksheet
aktiviert wird.
VBA.DoEvents
Next
Set WB = Nothing
End Sub
----------------

Alle PT aktualisieren

Sub AllePivotTabellenInArbeitsmappeAktualisieren()
Dim Blatt As Worksheet
Dim pt As PivotTable
For Each Blatt In ActiveWorkbook.Sheets
Blatt.Activate
For Each pt In Sheets(1).PivotTables
pt.RefreshTable
Next pt
Next Blatt
End Sub

----------------------


Sub AllePivotTableAktualisieren()
ActiveWorkbook.RefreshAll
End Sub
--------------

Am 18.02.2012 18:35, schrieb Lutz E. Cerning:
> Hallo allerseits,
> mit F9 werden ja bei Bedarf die Formeln neu berechnet.
> Dumerweise werden nicht meine -zig Pivottabellen mit aktualisiert :-(
>
> Gibt es einen Weg, in einem (mehrseitigen) Sheet ALLE Pivottabellen
0 new messages