Berechnungen wenn in Spalte A bestimmte Bedingungen enthalten sind.

[bietho]

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

[Peter]

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.

[bietho]

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

[Rabe]

Hi Peter,

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