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

Forumthread: überflüssige Elemente in Pivot-Dropdownliste

überflüssige Elemente in Pivot-Dropdownliste
16.08.2007 17:32:42
backi
Kennt jemand eine Möglichkeit, wie ich die redundanten Elemente beim Drop-Down Menü in einer Pivot-Tabelle zu entfernen.

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
löschen von nicht mehr verwendeten Einträgen
16.08.2007 19:18:15
nicht
Hallo Backi,
aus einem Thread von 2006:

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
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ß
Werner

Anzeige
AW: löschen von nicht mehr verwendeten Einträgen
17.08.2007 10:08:11
nicht
Danke, ich wusste doch, das es dafür ein Makro gibt, ich hatte sowas schonmal gehabt, konnte es aber nicht mehr finden!

ab ExcelXP geht auch dashier:
16.08.2007 20:46:47
Luschi
Hallo Backi,
neu ab ExcelXP:

Sub DeleteOldPivotItemsWB()
'Pivots aktualisieren
For Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.PivotCache.Refresh
pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next pt
Next ws
End Sub

Gruß von Luschi
aus klein-Paris

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige