title image


Smiley Re: Pivot-Tabellen aktualisieren
Hallo Joerg,



wenn ich dich richtig verstanden habe, dann solltest du es mal mit folgendem Code versuchen.



Sub DeleteOldPivotItemsWB()

'Quelle: Thomas Ramel

'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



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: