Pivot-Chart automatisch aktualisieren (VBA)

[ludwigm]

Wie kann ich diesen Code ohne Activate schreiben?

Code:

    Sheets("Pivot_xy").ChartObjects("Diagramm 1").Activate
    ActiveChart.PivotLayout.PivotTable.PivotCache.Refresh

Das funktioniert leider nicht:

Code:

Sheets("Pivot_xy").ChartObjects("Diagramm 1").PivotLayout.PivotTable.PivotCache.Refresh

"Objekt unterstütz diese Methode oder Eigenschaft nicht"

[derHoepp]

Hi,

ich hab gerade keinen Rechner zur Hand, aber Versuch Mal nach ChartObjects() noch auf .Chart zu referenzieren und erst dann auf PivotLayout. Oder du nutzt direkt .RefreshAll 

Viele Grüße
derHöpp
Vom Handy gesendet

[ludwigm]

Code:

ActiveWorkbook.RefreshAll

Top