VBA Pivot xlrunningTotal
03.09.2018 14:24:03
Lutz
ich habe eine Pivot-Tabelle mit diversen Spalten bei denen ich die Berechnung auf Laufende Summe setzen muß...
Bei manchmal 60 Spalten viel Arbeit.
Daher dachte ich ein Makro kann das machen.
Aufgezeichnet bekomme ich:
Sub Makro1()
With ActiveSheet.PivotTables("PivotTable1").PivotFields(" Artikel1")
.Calculation = xlRunningTotal
.BaseField = "Hier2"
End With
End Sub
Nun dachte ich, ich kann alle Felder durchlaufen und das setzen:Sub Makromore2()
Dim pi As PivotItem, iStart As Integer, pt As PivotTable
For Each pt In ActiveSheet.PivotTables
For Each pi In pt.DataPivotField.PivotItems
pi.Calculation = xlRunningTotal
pi.BaseField = "Hier2"
Next
Next
End Sub
Leider klappt das nicht, bei
pi.Calculation = xlRunningTotal
steigt er aus - obwohl er das erste Feld in der pi variablen hat.
Weiß jemand Rat?
Vielen Dank für Eure Hilfe und viele Grüße
Lutz