For i = 2 To 13
'Hinzufügen die Namen von jeden Kurve
ActiveSheet.ChartObjects("Diagramm " & Dia_Num & "").Activate
L_Punkt = ActiveChart.SeriesCollection(i).Points.Count
ActiveChart.SeriesCollection(i).Points(L_Punkt).ApplyDataLabels
ActiveChart.SeriesCollection(i).Points(L_Punkt).DataLabel.Select
Selection.Formula = Cells(l, c)
c = c + 3
Next i