Pivot Cache verkleinern - Code ändern
09.05.2008 14:04:00
Lutz
ich habe einen Code der für alle Pivottabellen den Pivotcache verkleinert:
Sub DeleteOldPivotItemsWS()
Dim ws As Worksheet
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
On Error Resume Next
For Each pt In ActiveSheet.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
End Sub
Ich möchte das aber jetzt für einzelne Pivots im aktuellen Blatt machen, z.B. erst für Pivottable 1, dann für 2 und dann für Nummer 3.
Wie muß man den Code ändern?
Gruß Lutz