Beispiel unter https://www.herber.de/bbs/user/22230.xls
Vielen Dank für Tips im Voraus.
Option Explicit
Sub Datenpunkte()
Dim ch As Chart, sc As Series, p As Long
Set ch = ActiveSheet.ChartObjects("Chart 4").Chart
Set sc = ch.SeriesCollection(1)
For p = 1 To sc.Points.Count
sc.Points(p).DataLabel.Text = Cells(p + 2, 2)
Next
End Sub
Gruß