Grafik Linienbeschriftung ändert sich nicht

[StrammerMax]

Hallo Leute,

ich habe hier eine Grafik, die 2 Linien hat. Am rechten Rand soll immer der letzte Wert der Linie stehen.
Das funktioniert so weit auch. Aber sobald sich die Werte der Linie ändern bleibt die Beschriftung rechts die Alte und passt sich nicht neu an. Sie wandert dynamisch immer an die richtige Position - aber der Wert passt sich nicht an.
Wenn ich in den Optionen auf "Beschriftung zurücksetzen" klicke übernimmt er den neuen Wert... aber ich möchte, dass das automatisch funktioniert.

   

[StrammerMax]

Hat niemand eine Ahnung? :(

[StrammerMax]

Was mich wundert - manche Beschriftungen passen sich automatisch an, andere nicht.

Ich habe probiert die Beschriftungen über VBA zu aktualisieren - allerdings habe ich das Problem, dass die Beschriftungen keine feste technische Bezeichnung haben, sondern über einen Counter ermittelt werden.

Da ich die Alternativen dynamisch ausblenden kann verändert sich der Counter ständig was es nicht gerade einfacher macht.

Jemand eine Idee?

Code:

Sub Beschriftung_A1_1()

' CF after Tax cum A1

If Worksheets("Graph All").Alternative1.Value = False And Worksheets("Graph All").CFafterTaxCum.Value = False Then
   Worksheets("Graph All").ChartObjects("Diagramm 5").Activate
   ActiveChart.SeriesCollection(2).DataLabels.Select
   ActiveChart.SeriesCollection(2).Points(11).DataLabel.Select
   Selection.AutoText = True
   Selection.Format.TextFrame2.TextRange.Font.Size = 18
   Selection.Format.TextFrame2.TextRange.Font.Bold = msoTrue
   With Selection.Format.TextFrame2.TextRange.Characters(1, 4).Font.Fill
       .Visible = msoTrue
       .ForeColor.RGB = RGB(79, 129, 189)
       .Transparency = 0
       .Solid
   End With
   ActiveChart.SeriesCollection(2).Points(11).DataLabel.Text = Round(Worksheets("Graph Database").Range("L48").Value, 0)
   Range("I82").Select
End If

End Sub

 
Das funktioniert, so lange ich nur Alternative 1 anzeige. Sobald ich noch eine weitere Alternative einblende sagt er, dass er Counter 2 nicht findet.

[StrammerMax]

Excel ist ein A****** ...

Gerade stundenlang den Fehler gesucht... einmal alle Datenbeschriftungen entfernt und neu hinzugefügt - und schon funktioniert alles wie es soll.