Pivottabelle säubern mit VBA
06.03.2006 10:41:57
maze
kann mir bitte jemand bei diesem Makro helfen. Er löscht überflüssige Einträge in den Pivotabellen. Er soll jetzt 7 Spalten überprüfen und nicht bloß eine, die Meldung darin brauche ich auch nicht mehr. Ich muß von Hand immer die nächste Spalte anpassen, das kostet Zeit.
RowFields(2)bis Row Fields(8)in einem durch wäre mein Wunsch!!
Sub Pivot_cleaner2()
Dim intCounter As Integer
Dim intAnzahlRowFeldItems As Integer
intAnzahlRowFeldItems = ActiveSheet.PivotTables("PivotTable"). _
RowFields(2).PivotItems.Count
With ActiveSheet.PivotTables("PivotTable").RowFields(2)
For intCounter = intAnzahlRowFeldItems To 1 Step -1
If .PivotItems(intCounter).RecordCount Then
MsgBox .PivotItems(intCounter).Name & " kommt " & _
.PivotItems(intCounter).RecordCount & _
"-mal in der Tabelle vor!"
Else
MsgBox .PivotItems(intCounter).Name & " kommt " & _
" nicht mehr in der Tabelle vor und wird gelöscht!"
.PivotItems(intCounter).Delete
End If
Next intCounter
End With
End Sub
Gruß
Matthias