Marko, welches alle Pivos aktualisiert
Zokanta
hier nur noch ein Nachtrag zum selben Thread vom 18.06.2009:
So hat es bei mir letztendlich gefunzt:
Sub Pivot_aktualisieren()
Dim Blatt As Worksheet
Dim pt As PivotTable
Dim i
i = 0
For Each Blatt In ActiveWorkbook.Sheets
Blatt.Activate
i = i + 1
For Each pt In Sheets(i).PivotTables
pt.RefreshTable
Next pt
Next Blatt
End Sub
Danke für eure Hilfe.