VBA Prozentformat in Datenreihe1, Punkt5
13.07.2020 17:34:43
Dieter(Drummer)
In einer Grafik, der Punkt 5 soll das richtige Prozentformat , z.B. 10%, zeigen. Der Punkt 5 hat per Code eine Zuweisung der Zelle, die eine Prozenztformel enthält. Mit folgendem Code wird der richtige Prozentwert gezeigt, aber nicht das zugehörige Prozentzeichen "%", also Ergebnis soltte 10% zeigen.
Hier mein jetziger Code, in dem ich nicht das richtige Format schaffe (ohne Prozentzeichen) und die Angaben Activate und Select bekomme ich auch nicht weg.
Mit der Bitte u Hilfe, grüßt
Dieter(Drummer)
Sub ProzentPunkte() 'Test Point5
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select
ActiveChart.SeriesCollection(1).Points(5).DataLabel.Text = Range("C9") * 100
ActiveChart.SeriesCollection(1).Points(5).DataLabel.NumberFormat = "0.0"
Range("D2").Select
End Sub