Pivottabellen in Excel 2007

Ja, das ist ein bekanntes Phänomen bei Pivot-Tabellen. Die alten Pivot-Items bleiben noch im Cache, auch wenn sie in der Datenquelle bereits nicht mehr vorhanden sind.

Lass das folgende Markro laufen, dann werden diese alten Einträge entfernt:

Code:

Sub DeleteOldPivotItemsWB()
'löschen von nicht mehr verwendeten Einträgen in Pivot-Tabellen
'basierend auf MSKB (Q202232)
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
'Oder als Alternative ab xl2002
For Each wS In ActiveWorkbook.Worksheets
For Each pt In wS.PivotTables
pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next pt
Next wS

End Sub



(C) 2010 - Alle Rechte vorbehalten

Diese Seite drucken