ich brauche zu diesem Thema: https://www.herber.de/forum/messages/574523.html
noch Hilfe.
Danke
Holger
Sub Datenbeschriftung()
Dim Serie As Object
For Each Serie In ActiveChart.SeriesCollection
Serie.DataLabels.Orientation = xlUpward
Next Serie
End Sub