PDA

Vollständige Version anzeigen : Doppelte PivotItems


Patri
27.02.2008, 18:23
Hallo,
in meiner PivotTabelle habe ich zu jeder Spalte ein Pivot Drop Down Feld mit den jeweiligen PivotItems enthalten. Nun weiß ich zwar wie ich alte Items lösche, aber nicht wie ich Duplikate entferne. In meinem Drop Down Feld steht beispielsweise 2 mal "Mini" drinne.
Mein Code sieht bis jetzt so aus:

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

Kann mir da jemand helfen???:rolleyes:

jinx
27.02.2008, 18:56
<font size="2" face="Century Gothic">Moin, Patri,

vielleicht solltest Du einmal auf Excel -- Pivot Tables -- Show and Hide Items (http://www.contextures.com/xlPivot03.html) und Show Specific Item in Specific Field nachsehen...</font>