Überflüssige Elemente in Pivot Tabellen Drop Downs
21.04.2009 14:42:50
Gerhard
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