Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Überflüssige Elemente in Pivot Tabellen Drop Downs

Überflüssige Elemente in Pivot Tabellen Drop Downs
21.04.2009 14:42:50
Gerhard
Hallo zusammen,
gibt es eine Version des unten angegebenen Makros, welche nur die Pivottabelle in der aktiven Tabelle bereinigt? Mein Problem ist nämlich, dass ich sehr viele Datentabellen mit mehreren Pivottabellen habe und das unten angegebene Makro dann sehr sehr lange braucht. Ich würde gerne immer nur die Pivottabelle in der gerade verwendeten Tabelle bereinigen.
Vielen Dank
Gerhard
Hallo Backi,
aus einem Thread von 2006:

Sub DeleteOldPivotItemsWB()
'löschen von nicht mehr verwendeten Einträgen in Pivot-Tabellen
'basierend auf MSKB (Q202232)
'Quelle: Thomas Ramel
Dim wS              As Worksheet
Dim pt              As PivotTable
Dim pf              As PivotField
Dim pi              As PivotItem
On Error Resume Next
For Each wS In ActiveWorkbook.Worksheets
For Each pt In wS.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
Next
Next
Next
End Sub


		

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

Betreff
Datum
Anwender
Anzeige
AW: Überflüssige Elemente in Pivot Tabellen Drop Downs
21.04.2009 14:47:27
D.Saster
Hallo,

Sub DeleteOldPivotItemsWB()
'löschen von nicht mehr verwendeten Einträgen in Pivot-Tabellen
'basierend auf MSKB (Q202232)
'Quelle: Thomas Ramel
Dim pt              As PivotTable
Dim pf              As PivotField
Dim pi              As PivotItem
On Error Resume Next
With ActiveSheet
For Each pt In .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
Next
Next
End With
End Sub


Gruß
Dierk

AW: Überflüssige Elemente in Pivot Tabellen Drop Downs
21.04.2009 15:07:34
Gerhard
Klasse! Funktioniert!
Vielen Dank
Gerhard
Anzeige

336 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige