Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ü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.

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

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige