Beschriftung in Liniendiagramm

Question

Hallo alle,

ich bin neu und habe eine Frage für die Schule.

Ich habe eine Tabelle erstellt, die circa so ausschaut:

20KW 21KW 22KW 23KW

1000 2000 3000 4000
1100 1200 1300 1400
2100 2200 2300 2400


Dies sind Punkte die mehrere Mitspieler je Woche gesammelt haben,
also in der ersten Woche hat Spieler 1 = 1000 Punkte gesammelt, Spieler 2 hat 1100 Punkte gesammelt, Spieler 3 hat 2100 Punkte gesammelt... usw. In Woche 2 hat z.B. Spieler 1 = 2000 Punkte gesammelt.

Daraus habe ich ein Liniendiagramm entworfen. Bei der Beschriftung habe ich mir den Wert anzeigen lassen. Da es sonst zu unübersichtlich wird habe ich von den ersten drei Wochen, die Werte händisch entfernt und nur bei der aktuellen Woche, den Wert gelassen. Jetzt habe ich getestet wie es ausschaut, wenn ich nächste Woche wieder die drei Werte eintrage. Dann habe ich bei jeder Linie zwei Werte stehen, der von dieser und der von letzter Woche.

Kann man irgendwo in der Diagrammbeschriftung einstellen, das er immer nur den rechten bzw. aktuellen Wert nimmt?

Wäre schön, wenn mir jemand da eine Antwort geben könnte.


Vielen Dank

Stephanie

Answer 1

Hi Stephanie,

nein, das kann man nicht einstellen. Es ließe sich aber mit VBA lösen:

Sub AnzeigeAktuell()
Dim intReihe As Integer
With ActiveSheet.ChartObjects(1).Chart
.SetElement (msoElementDataLabelNone)
For intReihe = 1 To .SeriesCollection.Count
.SeriesCollection(intReihe).Points(.SeriesCollection(intReihe).Points.Count).ApplyDataLabels
Next intReihe
End With
End Sub

Bis später,
Karin

Answer 2

Hallo Karin,

vielen Dank für deine Hilfe !!!!!!!!!!!!


LG Stephanie