Hallo zusammen,
in meiner Arbeitsmappe aktualisiere ich derzeit die Pivot mit der Funktion
Dim p As PivotTable
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
For Each p In ws.PivotTables
p.RefreshTable
Next
Next
Es kann allerdings vorkommen, dass keine Basisdaten vorhanden sind und somit die Aktualisierung fehlschlägt. Im Fehlerfall möchte ich gerne, dass die Pivot dann zwar aktualisiert aber gleichzeitig eine Fehlermessage ausgegeben wird. Hintergrund ist, dass durch die Aktualisierung die vorherigen Daten aus der Anzeige "gelöscht" werden sollen und nicht durch einen Abbruch (on error resume next) weiterhin sichtbar sein sind. Alternativ könnte die Pivot auch gelöscht werden.
Ich hoffe ich habe mich verständlich ausgedrückt und ihr könnt mir helfen?!