Pivot aktualisieren?

04/04/2009 - 23:10 von Peter Schürer | Report spam
Hallo Zusammen,

XL2002.

Wenn ich in der Datentabelle Werte lösche, erscheinen diese Werte in der
"Auswahlliste" der Pivottabelle immer noch.
Ich habe alle Zeilen, in denen das Datum 04.08.08 stand, gelöscht. Danach
habe ich die Pivot aktualisiert. Das Datum 04.08.08 wird in der Pivot nicht
mehr erfasst, steht aber in der Auswahlliste noch drin.
Wie kann man das bereinigen?

Danke und Gruß
Peter
 

Lesen sie die antworten

#1 Thomas Ramel
05/04/2009 - 01:50 | Warnen spam
Grüezi Peter

Peter Schürer schrieb am 04.04.2009

Wenn ich in der Datentabelle Werte lösche, erscheinen diese Werte in der
"Auswahlliste" der Pivottabelle immer noch.
Ich habe alle Zeilen, in denen das Datum 04.08.08 stand, gelöscht. Danach
habe ich die Pivot aktualisiert. Das Datum 04.08.08 wird in der Pivot nicht
mehr erfasst, steht aber in der Auswahlliste noch drin.
Wie kann man das bereinigen?



Die DropDowns werden leider nicht automatisch bereinigt, aber Du kannst die
folgende Sub dazu verwenden:

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.ManualUpdate = True
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 pi
Next pf
pt.ManualUpdate = Falde
Next pt
Next ws
End Sub


Mit freundlichen Grüssen
Thomas Ramel

- MVP für Microsoft-Excel -
[Vista Ultimate SP-1 / xl2007 SP-1]

Ähnliche fragen