Diagramm dynamisch -
14.03.2005 09:19:36
Julia
https://www.herber.de/forum/messages/582542.html
Ich hab folgende Datengrundlage:
https://www.herber.de/bbs/user/19398.jpg
Zur Erklärung:
Ich habe nun eine Möglichkeit gefunden, dass immer nur aus den Daten der letzten 12 Monate ein Diagramm erzeugt wird, eigentlich ganz simpel :)
'Lies Felder der Tabelle 1 aus.
Endwert = Range("S3").Value
Anfangswert = Range("S4").Value
'Festlegung des Wertebereichs des Diagramms
cht.SetSourceData Source:=Sheets("Tabelle1").Range("A" + Anfangswert + ":O" + Endwert), PlotBy:=xlColumns
S3 und S4 sind zwei Zellen, die mit Formeln hinterlegt wurde. Ich finde den akuellsten Wert heraus und rechne dann minus 11 :) damit ich auf 12 Werte komme.
So einfach, so schön und nun zu meinem eigentlichen Problem:
Wenn ich nun das Diagramm erzeugen lassen, werden die Balken schön angezeigt, allerdings läßt die Legende dann zu wünschen übrigen, da im Wertebereich des Diagramms nicht mehr die Zuordnung liegt (quasi Zeile 3 o.ä.)
Da steht immer nur Reihe. oder so.
Ich überlege jetzt, auf einem 2. tabellenblatt diese zeile zu kopieren und dann die errechnete datengrundlage auch in das 2. blatt zu kopieren und erst dann DARAUS das Diagramm zu erzeugen.
Jedoch 1. hapert es schon daran, dass ich nicht weiss, wie ich den Bereich in Tabelle2 kopieren soll
und 2. hoffe ich, dass es evtl. noch eine elegantere Lösung gibt :)
Zudem würd ich gerne einen Titel, etc festlegen, jedoch wenn ich
cht.ChartTitle.Text = "Test"
cht.ChartTitle.Shadow = True
schreib, sagt mir das VBA-Dingens, dass die Texteigenschaft nicht festgelegt werden kann. Es hat aber definitiv schon einmal geklappt.
Hilfe!!
Danke sehr.