title image


Smiley Re: Pivot Tabelle Kriterienauswahlliste aktualisieren
Moin Brink,



da hilft mir folgendes mal irgendwo aufgeschapptes Makro immer gut weiter:



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

End Sub


Gruß aus Köln! Marc

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: