Herbers Excel-Forum - das Archiv
Wertebereiche f. Diagramme variabel halten
- Wertebereiche f. Diagramme variabel halten von Uli vom 08.12.2003 13:54:41
- AW: Wertebereiche f. Diagramme variabel halten - von Nike am 08.12.2003 13:59:13
- Danke für den genialen Link! - von Uli am 08.12.2003 15:10:15
- Danke für den genialen Link! - von Uli am 08.12.2003 15:10:15
- AW: Wertebereiche f. Diagramme variabel halten - von Nike am 08.12.2003 13:59:13
 |
Betrifft: Wertebereiche f. Diagramme variabel halten
von: Uli
Geschrieben am: 08.12.2003 13:54:41
Servus zusammen, nochmal ich :-)
hab eine Mappe mit einem Rechenblatt voller Daten und viele Diagrammen.
Auf dem Rechenblatt stehen die verschiedensten Werte, spaltenweise nach Jahrgang aufgezählt.
(z. B. in Spalte F die Daten v. 2001)
Problem ist, dass je nach Anwendungsfall verschiedene und verschieden viele Jahrgänge ausgewertet werden müssen.
Also z. B. einmal durchgängig von 1992 bis 2003, ein andermal die Jahre 1994-1998, 2000 und 2003.
Bislang muss ich jedes Mal in jedem Diagramm extra den Bereich über "Datenquelle" anpassen. - Wie lästig!
Gibt es eine Möglichkeit, den Datenbereich zu automatisieren, je nachdem in werlcher Spalte die letzen Werte stehen?
Oder ich geb' in eine InputBox die letzte relevante Spalte ein?
Hab's schon versucht mit:
Sub yx()
Dim Spalte As String
Spalte = Range("F)").Value
'(in der Zelle steht die Anzahl der ausgefüllten Spalten)
Sheets("Kosten").Select
ActiveChart.SeriesCollection(1).XValues = "='Werte'!R4C2:R4C" & Spalte
ActiveChart.SeriesCollection(1).Values = "='Werte'!R10C2:R10C" & Spalte
'usw. für die anderen Charts...
End Sub
Hat jemand 'ne Idee, wie ich hier weiterkomm, bzw. vielleicht/wahrscheinlich gibt es ja eh eine viel elegantere Lösung?!?!?
Danke für Eure Überlegungen
Gruß Uli
 |
Betrifft: AW: Wertebereiche f. Diagramme variabel halten
von: Nike
Geschrieben am: 08.12.2003 13:59:13
Hi,
eine Superbeispieldatei von Thomas Ramel:
http://users.quick-line.ch/ramel/Diagramme/Diagramm_dynamisch.xls
Einfach Namen vergeben und diese Namen als Datenbereich nutzen, echt elegant...
Bye
Nike
|
Betrifft: Danke für den genialen Link!
von: Uli
Geschrieben am: 08.12.2003 15:10:15
Hi Nike, Danke für den absolut genialen link!
Gruß Uli
| |