Beschriftung Liniendiagramm gleiche Werte
Suzette
vor einiger Zeit hat mir folgender Code super geholfen:
Sub Beschriftung()
Dim chrDiagramm As Chart
Dim arrWerte1
Dim arrWerte2
Dim intPunkt As Integer
Set chrDiagramm = Worksheets("Kosten").ChartObjects(1).Chart
With chrDiagramm
arrWerte1 = .SeriesCollection("2009").Values
arrWerte2 = .SeriesCollection("2010").Values
For intPunkt = 1 To .SeriesCollection("2009").Points.Count
On Error Resume Next
If arrWerte1(intPunkt) Wie müsste ich diesen Code ändern, damit er die Werte der Reihe 2009 nicht anzeigt, wenn sie genau dem Wert von 2010 entspricht? Momentan schreibt er mir nämlich die Werte einmal über und einmal unter den Monatspunkt.
Vielen lieben Dank im voraus
und liebe Grüße
Suzette
Anzeige