Pivot automatisch aktualisieren
28.08.2007 16:09:10
Greenhorn
habe einen Macro kopiert, welcher beim Anwählen des Registerblattes automatisch den darauf enthaltenen Pivot Table aktualisiert.
Das funktioniert als solches auch aber wenn ich das File schliessen will, wird es automatisch wieder geöffnet.
An was liegt das? Was muss ich anders machen damit ich den Pivot Table automatisch aktualisieren kann...oder gibt es einen anderen Befehl wie ich den Pivot automatisch aktualisieren kann...
Danke für eure Hilfe!!
Sub Auto_Open()
Application.OnSheetActivate = "UpdateIt"
End Sub
Sub UpdateIt()
Dim iP As Integer
Application.DisplayAlerts = False
For iP = 1 To ActiveSheet.PivotTables.Count
ActiveSheet.PivotTables(iP).RefreshTable
Next
Application.DisplayAlerts = True
End Sub
Anzeige