Wie mache ich das?
https://www.herber.de/bbs/user/50445.xls
Gruß
Sub beschriftung()
Dim inPunkt As Integer
Dim chDiagramm As Chart
Dim wsTabelle As Worksheet
Set wsTabelle = ActiveSheet
Set chDiagramm = ActiveSheet.ChartObjects(1).Chart
With chDiagramm
.SeriesCollection(1).ApplyDataLabels
.SeriesCollection(2).ApplyDataLabels
For inPunkt = 1 To .SeriesCollection(1).Points.Count
If wsTabelle.Cells(inPunkt + 5, 4) = 0 Then
.SeriesCollection(1).Points(inPunkt).DataLabel.Text = ""
.SeriesCollection(2).Points(inPunkt).DataLabel.Text = ""
Else
.SeriesCollection(1).Points(inPunkt).DataLabel.Text = Format(wsTabelle.Cells( _
inPunkt + 5, 4), "#0.00")
.SeriesCollection(2).Points(inPunkt).DataLabel.Text = wsTabelle.Cells(inPunkt + _
5, 5)
End If
Next inPunkt
End With
End Sub
https://www.herber.de/bbs/user/50459.xls