title image


Smiley Re: PivotTable: alte Elemente nicht mehr anzeigen
Hallo,



versuch mal ob dir dieses Makro von hilft:



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



If Val(Application.Version) < 10 Then

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

Else

'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 If

End Sub




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: