ich möchte ein Pivot Table automatisch aktualisieren lassen. Das Table befindet sich allerdings auf dem gleichen Sheet wie die Daten und da komme ich nicht weiter.
Kann mir jemand einfach, aber effektiv helfen?
Sub PivotAktual()
Dim n As Integer
Dim nn As Integer
For n = 1 To Worksheets.Count
For nn = 1 To Worksheets(n).PivotTables.Count
Worksheets(n).PivotTables(nn).RefreshTable
Next nn
Next n
End Sub
Aktualisiert alle Pivots in deiner Datei. Einfach noch ne schaltfläche hinzufügen und verknüpfen, schon werden alle Pivots mit einem Knopfdruck aktualisiert