.NumberFormat für Kreisdiagramm
01.04.2020 23:53:40
Markus
Ich versuche das Number Format für ein Kreisdiagramm anzupassen. Ich bekomme es leider aber nicht richtig hin. Alle Möglichkeiten die ich versuche werfen nur Fehlermeldungen aus.
Sub Kreisiagramm()
Dim wks13 as Worksheet
Set wks13 = Worksheets("Ausgabe")
With wks13.ChartObjects("Diagramm 1")
.Top = wks13.Cells(7, 2).Top
.Left = wks13.Cells(7, 2).Left
.Height = 199
.Width = 336
.Chart.ChartTitle.Text = "EPS-Anteile Prozesse Gesamt"
.Chart.SetSourceData Source:=wks10.Range(wks10.Cells(11, 4), wks10.Cells(Rows.Count, 5). _
End(xlUp).Offset(-1,0).Rows)
.Chart.HasLegend = True
.Chart.SetElement (msoElementDataLabelInsideEnd)
.Chart.ApplyDataLabels Type:=xlDataLabelsShowPercent
.Chart.DataLabels.NumberFormat = "0,00%" 'Zeile die Probleme verursacht
End With
Würde mich freuen wenn jemand drüber gucken und mir helfen könnte!
Viele Grüße,
Markus
Anzeige