Ist es möglich, den nachstehende code zu vereinfachen? Wie?
Leider habe ich im Forum nichts gefunden :-(
Andi
ActiveSheet.PivotTables("PivotTable1").PivotFields("Pers.Nr.").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("PivotTable1").PivotFields("Name").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("PivotTable1").PivotFields("Vorname").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False)