Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Daten PivotTabellen, Filter aktualisieren

Daten PivotTabellen, Filter aktualisieren
Jonathan
Hallo zusammen!
In den Filtern meiner PivotTabellen und der "normalen" Tabellenfiltern haben sich im Laufe der Zeit viele Werte angesammelt, die in meinen Tabellen nicht mehr existieren. Ist es irgendwie möglich, diese zu löschen?
Danke Euch!
LG
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Daten PivotTabellen, Filter aktualisieren
03.04.2010 12:59:42
Peter
Hallo Jonathan
ich habe nicht die Excel Version 2007, dass nachfolgende Macro funktioniert aber bei 2003.
Sub PivotItemsDeleteOldWB()
'löschen von nicht mehr verwendeten Einträgen in Pivot-Tabellen
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ß
Peter
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige