Pivot refresh
Albert
kleiner Spaß am Rande. :)
Ich verwende seit Monaten diesen Code zum Aktualisieren von Pivot-Tabellen.
Sub Stapler_aktualisieren()
' Stapler_aktualisieren Makro
Range("A21").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
On Error Resume Next
If Val(Application.Version) > 9 Then
For Each ws In ActiveWorkbook.Worksheets
For Each PivotTable In ws.PivotTables
PivotTable.ManualUpdate = True
PivotTable.RefreshTable
PivotTable.PivotCache.MissingItemsLimit = xlMissingItemsNone
PivotTable.ManualUpdate = False
Next PivotTable
Next ws
Else
For Each ws In ActiveWorkbook.Worksheets
For Each PivotTable In ws.PivotTables
PivotTable.ManualUpdate = True
PivotTable.RefreshTable
For Each PivotField In PivotTable.PivotFields
For Each PivotItem In PivotField.PivotItems
If PivotItem.RecordCount = 0 And _
Not PivotItem.IsCalculated Then
PivotItem.Delete
End If
Next PivotItem
Next PivotField
PivotTable.ManualUpdate = False
Next PivotTable
Next ws
End If
End Sub
Heute kam dann ein Kollege, der eigentlich den Code verwendet, aber jetzt verschiedene Laufzeitfehler (1004 und 438) erhält. Nach einigem googeln hab ich jetzt immer noch nicht das richtige gefunden und wende mich an euch.Komisch ist, dass der Code bei mir ordnungsgemäß durchläuft. Es handelt sich bei der Datei um eine, die auf einem Server gespeichert ist. Hat die Servergeschwindigkeit vielleicht auch etwas damit zu tun? Denn die ist heute wieder ordentlich langsam.
Dank derweil im Voraus.
Albert