Hallo zusammen,
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