Pivotdiagramm Farbe
04.03.2009 13:27:00
Julia
Sub Pivots_aktualisieren()
'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
Nachdem ich das Makro ausführe wird auch alles aktualisiert
Allerdings ändern sich die Farben meine Balken
Ich habe meinen Balken vor dem Makro rot gehabt, führe ich das Makro aus dann ändert er mir das rot
Wie kann ich das umgehen
Will nicht jedes mal die Farbeb neu vergeben