Pivot Tabelle - Filter löschen

05/06/2008 - 11:31 von Ernst-Peter Schönegge | Report spam
Hallo an Alle,

habe in Excel 2003 eine Pivottabelle, die Ihre Werte aus einem anderen Blatt
in der gleichen Mappe bezieht.
In der PT habe ich Spaltenüberschriften mit Wertefilter. Wenn ich in meiner
Vorlage alle Werte einer Spalte lösche und mit anderen Werten befülle, wird
der Inhalt des Wertefilters nicht auf die neuen Werte reduziert sondern um
diese erweitert.

Bsp.:
In einer Spalte stehen die Werte: 1,2,3,1,2,3,1,2,3
In der Pivottabelle im Filter steht: 1,2,3 zur Selektion bereit

Ich lösche die Werte in meiner Ausganstabell und trage 4,5,6,4,5,6,4,5,6 ein
In der Pivottabelle im Filter steht: 1,2,3,4,5,6 zur Selektion bereit

Ich hàtte gern, das nur vorhandene Werte in dem Filter zur Auswahl angeboten
werden. Also 4,5,6

Was kann ich tun ?


Peter Schönegge
 

Lesen sie die antworten

#1 thomas.ramel
05/06/2008 - 12:00 | Warnen spam
Grüezi Peter

On 5 Jun., 11:31, "Ernst-Peter Schönegge" wrote:
In der PT habe ich Spaltenüberschriften mit Wertefilter. Wenn ich in meiner
Vorlage alle Werte einer Spalte lösche und mit anderen Werten befülle, wird
der Inhalt des Wertefilters nicht auf die neuen Werte reduziert sondern um
diese erweitert.

Was kann ich tun ?



Ja, die PT aktualisiert nicht automatisch die Pivot-Items in den
DropDowns.

Lass die folgenden VBA-Zeilen laufen, dann stimmen die Eintràge
wieder:

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

Mit freundlichen Grüssen

Thomas Ramel
- MVP für MS-Excel -

Ähnliche fragen