Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1404to1408
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Formatierung berechnetes Feld

Formatierung berechnetes Feld
27.01.2015 15:11:51
Emanuel
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formatierung berechnetes Feld
27.01.2015 15:14:50
Klaus
Hallo Emanuel,
.NumberFormat = "0.00%"
Grüße,
Klaus M.vdT.

AW: Formatierung berechnetes Feld
27.01.2015 15:18:50
Emanuel
Klappt super! Vielen Dank für die schnelle Hilfe!
LG
Emanuel

Danke für die Rückmeldung! owT.
27.01.2015 15:24:31
Klaus
.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige