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
|