Pivot Tabelle Wertfeldeinstellung von mehreren Werten ändern

[Terades]

Hallo zusammen,

gibt es eine elegante möglichkeit die Wertfeldeinstellungen von Werten in einer Pivot Tabelle gleichzeitig zu ändern? Also z.B. von Anzahl auf Summe.

Vielen dank!:)

[WillWissen]

Hi,

ja, indem du deine Datenquelle richtig formatierst. Pivot nimmt ANZAHL, wenn es einen Text (auch Zahlen in Textformatierung) sieht und SUMME, wenn es (echte) Zahlen vor sich hat.

[Terades]

Formel ist schon mit -- zu ner zahl gemacht eigentlich, Format auch Zahl komisch... vlt wegen der Überschriften oder so?

Aber habs jetzt so gelöst.

Code:

Sub Pivot_Summe()

   Dim pt As PivotTable
   Dim col As PivotFields
   Dim c As PivotField

   Set pt = ActiveSheet.PivotTables("PivotTable1")
   Set col = pt.PivotFields
   
   For Each c In col
       If c <> "Datum" And c <> "Werte" Then
       Debug.Print "Sum_" + c
           With ActiveSheet.PivotTables("PivotTable1").PivotFields("Anzahl von " + c)
               .Caption = "kWh/km² " + c
               .Function = xlSum
           End With
       End If
   Next
   
End Sub

Klappt wunderbar. :)

[Dieter63]

Hallo

oder  meinst  du

das gleiche  Feld  noch mal in den  Wertebereich und die Wertfeldeinstellungen anpassen