Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Pivot Tabellen aktualisieren

Pivot Tabellen aktualisieren
08.04.2009 15:29:29
Frank
Hallo zusammen!
In einer Excel-Arbeitsmappe habe ich auf unterschiedlichen Arbeitsblättern Pivot-Tabellen, die sich alle auf den selben Datenberiech beziehen. Nach Änderung von Daten im Datenbereich würde ich gern auf Knopfdruck alle Pivottabellen auf einmal aktualiesieren. Wie ist das möglich?
Vielen Dank,
Frank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pivot Tabellen aktualisieren
08.04.2009 15:50:57
Rudi
Hallo,
damit werden auch ungültige Items entfernt. Ist aber nicht von mir.

Sub DeleteOldPivotItemsWB()
'ungültige Pivot-Items entfernen
'Pivot-Items die mal vorhanden waren und aus dem Datenstamm wegfallen werden aus
'der Pivot-Tabelle selbst nicht automatisch entfernt.
'Das folgende Makro sorgt dafür, dass dies in der gesamten Mappe geschieht:
Dim Wks As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Application.ScreenUpdating = False
On Error Resume Next
For Each Wks In ActiveWorkbook.Worksheets
For Each pt In Wks.PivotTables
pt.RefreshTable
For Each pf In pt.PivotFields
For Each pi In pf.PivotItems
If pi.RecordCount = 0 And Not pi.IsCalculated Then
pi.Delete
End If
Next pi
Next pf
Next pt
Next Wks
Application.ScreenUpdating = True
End Sub


Gruß
Rudi

Anzeige
AW: Pivot Tabellen aktualisieren
08.04.2009 15:56:23
Frank
perfekt! vielen dank!

308 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige