PivotChart aktualisieren

[Rabe]

Hi,

mit diesem Code kann ich ja alle PivotTables eines Sheets aktualisieren:

Code:

Sub Pivot_aktualisieren()
   '
   ' Pivot_aktualisieren: alle Pivot einer einzelnen Tabelle
   ' (c) 21.09.2011, Ralf
   ' Aufgerufen mit Worksheet_Activate() im betreffenden Tabellenblatt
   '
   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

Wie kann ich das mit allen PivotCharts, die auf Sheets liegen analog machen?

[Peter]

Hallo,

das Pivotchart aktualisiert sich doch automatisch wenn die dazugehörige PT aktualisiert wird, dafür ist doch eigentlich kein separater Code notwendig.

Oder verstehe ich das Problem falsch?

[Rabe]

Hi,

nein, ich glaube, Du hast es nicht falsch verstanden.

Die Charts bauen also immer auf einer bestehenden PivotTable auf und sind nicht als extra Bild direkt auf die Datentabelle bezogen und müssen also auch nicht separat aktualisiert werden?
Ok, dann ist ja alles gut.

[Peter]

Hallo,

ja, eigentlich sollte es so sein.

Wenn ich eine PT händisch aktualisiere wird automatisch auch der dazugehörige Chart aktualisiert und bei dem Makro sollte es genauso sein.

[snb]

Etwas genereller:

Code:

Sub M_snb()
  for each sh in sheets
    For Each pt In sh.PivotTables
       pt.PivotCache.Refresh
    Next
  next    
End Sub