Variable Skalierung
Suzette
ich habe auf einer Seite 2 Linien-Diagramme, die beide über den gleichen Drop-Down-Button gesteuert werden, und je nach Auswahl ganz unterschiedliche Zahlen ausweist. Nun habe ich letzte Woche hier angefragt, ob es eine Lösung gibt, dass immer in der Reihe, die die höheren Werte aufweist, die Beschriftung über der Linie ist, und dementsprechend in der zweiten Linie drunter.
Ich habe auch eine Super-Lösung bekommen, die für ein Diagramm funktioniert. Leider weiß ich nicht, wie ich das Makro umschreiben muss, damit es für beide Diagramme gleich gilt.
Sub Beschriftung()
Dim chrDiagramm As Chart
Dim arrWerte1
Dim arrWerte2
Dim intPunkt As Integer
Set chrDiagramm = Worksheets("XXX").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) Vielen lieben Dank im voraus!
Suzette