alle Pivots aktualiseren - Makro
Julia
um meine Pivots alle per Makro zu aktualisieren nutzte ich folgendes Makro:
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
wenn ich das richtig verstehe werden alle Pivots neu generiert. Dabei geht auch die Formatierung flöten.
Ist es aber möglich die Pivotfeldauswahl beizubehalten?
Beispiel
In meiner Pivotliste habe ich bei Autotyen die Marken BMW und Mercedes ausgewählt.
Durch einen neuen Datensatz kommt der Typ Audi hinzu.
Dieser wird dann automatisch in meiner Pivottabelle mitausgewählt. Ich möchte aber das weiterhin nur Mercedes und BMW angezeigt werden. Nur wenn ich Audi in meiner Pivottabelle haben möchte klicke ich es in der Auswahl an
einde Idee?