ich möchte in einer Pivottabelle mittels eines Makro ein berechnetes Feld erstellen und das Ergebnis als Prozentwert mit zwei Nachkommastellen darstellen lassen. Der Recorder spuckt mir folgenden Code aus:
Sheets("Report").Select
Range("M15").Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlDown)).Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Report!R15C1:R11448C13", Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Tabelle3!R3C1", TableName:="PivotTable1", _
DefaultVersion:=xlPivotTableVersion15
Sheets("Tabelle3").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Slot ID")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("AI served with Meetrics Pixel"), _
"Summe von AI served with Meetrics Pixel", xlSum
ActiveSheet.PivotTables("PivotTable1").CalculatedFields.Add "Visiblity 50/1", _
"='Visible AI 50% / 1sec' /'Measured AI 50% / 1sec'", True
ActiveSheet.PivotTables("PivotTable1").PivotFields("Visiblity 50/1"). _
Orientation = xlDataField
Range("C3").Select
With ActiveSheet.PivotTables("PivotTable1").PivotFields( _
"Summe von Visiblity 50/1")
.NumberFormat = "0,00%"
End With
Das Problem ist, dass die Prozentwerte nun folgendermaßen angezeigt werden:
045% statt 45,16%.
Weiß jemand, woran das liegt und kann mir helfen?
LG
Emanuel