(16.11.2015, 12:24)Peter schrieb: [ -> ]Hallo,
ich vermute mal er meint in den PivotTable-Optionen im Register Daten den Punkt 'Aktualisieren beim Öffnen der Datei'.
Eine automatische Neuberechnung der PT, wenn in der Datentabelle ein Wert geändert wird, gibt es (zumindest bis XL2010) nicht.
Guten Abend Peter,
bei mir berechnet die Pivot-Tabelle die Ergebnisse nach dem erneuten Öffnen der Datei automatisch. Hab die Tabelle markiert, dann mit der Maus Rechtsklick und den Punkt "PivotTable-Optionen..." ausgewählt und beim Reiter "Daten" die Option "Aktualisieren beim Öffnen der Datei" aktiviert. Das ganze funktioniert bisher ohne Tadel!
Herzliche Grüße und noch einmal ein großes DANKE!!!!
Thommy
Hallo,
ja, du sprichst vom Aktualisieren der Pivot beim Öffnen der Datei.
Rabe ging es darum, so interpretiere ich das, wie die PT automatisch aktualisiert wird wenn in der Datentabelle ein Wert geändert - und da gibt es keinen Automatismus.
Das sind zwei unterschiedliche Punkte.
(16.11.2015, 19:54)Peter schrieb: [ -> ]Hallo,
ja, du sprichst vom Aktualisieren der Pivot beim Öffnen der Datei.
Rabe ging es darum, so interpretiere ich das, wie die PT automatisch aktualisiert wird wenn in der Datentabelle ein Wert geändert - und da gibt es keinen Automatismus.
Das sind zwei unterschiedliche Punkte.
Hallo Peter,
Du hast völlig recht. So ganz von allein geht es wohl nicht.
Doch Dein Tipp war genau die Lösung für das was mir im Sinn stand!
Vielleicht lesen wir uns hier mal wieder - würde mich freuen!
Thommy
Hi Peter,
(16.11.2015, 19:54)Peter schrieb: [ -> ]Rabe ging es darum, so interpretiere ich das, wie die PT automatisch aktualisiert wird wenn in der Datentabelle ein Wert geändert - und da gibt es keinen Automatismus.
genau, das geht nur mit VBA.
Hinter dem betreffenden Tabellenblatt:
Code:
'Pivots aktualisieren, wenn Tabellenblatt angezeigt wird
Private Sub Worksheet_Activate()
Call Pivot_aktualisieren
End Sub
'Pivots aktualisieren bei Änderung in Tabellenblatt
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False 'ausschalten der rekursiven Reaktion auf Veränderungen
Call Pivot_aktualisieren
Application.EnableEvents = True
End Sub
in ein allgemeines Modul:
Code:
Option Explicit
Sub Pivot_aktualisieren()
'
' Pivot_aktualisieren: alle Pivot einer einzelnen Tabelle
' (c) 21.09.2011, Ralf
' Aufgerufen mit Worksheet_Activate() im betreffenden Tabellenblatt
' und/oder mit Worksheet_Change
'
Dim pt As PivotTable
'
'Alle Pivot-Tabellen eines Tabellenblattes durchlaufen
For Each pt In ActiveSheet.PivotTables
'Den PivotCache der PT aktualisieren
pt.PivotCache.Refresh
Next pt
End Sub