Pivot und VBA
05.12.2012 13:17:43
JACKD
Folgender Code
Worksheets(x).PivotTables(x).AddDataField _
Worksheets(x).PivotTables(x).PivotFields("Verweildauer"), "MvD", xlSum
With Worksheets(x).PivotTables(x).PivotFields("MvD")
.Caption = "MvD"
.Function = xlAverage
.NumberFormat = "0,00"
End With
Macht nicht was er soll.
Und zwar, bei NumberFormat kommt nicht wie gewünscht die Zahl mit 2 Nachkommastellen sondern eine Zahl mit 2 führenden nullen
Sprich, wenn als Mittelwert 4,3 Rauskommt, gibt er " 004 " aus. Das war so nicht im Sinne des Erfinders...
was mach ich falsch?
Ergänzend,
kann man die Codezeile noch einkürzen? ausser die doppelbenahmung (.caption)
Thanks in advance