Diagrammquelle über Variablen bestimmen
23.02.2004 11:03:35
Michael
Folgende Problemstellung:
Ich möchte automatisch beim öffnen einer Datei den Bereich, der zur Darstellung in einem Diagramm herangezogen wird aktualisieren. Dazu wird das Datenblatt des Diagramms erst gelöscht und dann ein neues erstellt.
(Genaugenommen erfolgt sogar zuerst eine Abfrage, wo ein beliebiges Datum erfragt wird, aber das ist nebensächlich)
Die Datentabelle sieht etwa so aus:
Monat________blabla_____Unfallquote
Mai 99_______Inhalt_____2,8
Jun 99_______Inhalt_____1,9
Jul 99_______Inhalt_____1,0
Aug 99_______Inhalt_____0,8
.
.
.
Das Makro geht dann her und sucht sich in Spalte A in der die Einträge aufsteigend sortiert sind den zu dem geforderten Datum passenden Eintrag. Nun soll die Zeile (Row) an eine Valiable übergeben werden und das ganze in einem Makro zur Diagrammerstellung verwandt werden. Die Übergabe klappt auch genauso wie auch das Makro zur Erstellung des Diagramms funktioniert, wenn ich so wie in dem Auszug unten Festwerte für die Bezüge einsetze.
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Unfälle").Range("a3:a26,f3:f26"), _
PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Name = "=Unfälle!R2C6"
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Unfallquote"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Kalendermonat"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = _
"Unfälle je 100.000 Arbeitsstunden"
End With
Wie kann ich jetzt mit Hilfe von einer oder mehrerer Variablen aus einem Zellbezug Sheets("Unfälle").Range("a3:a26,f3:f26") einen machen der mit variablen funktioniert? Ich hatte schon an eine cells(1, 1)-Lösung gedacht, bekomme aber auch die nicht in den Griff. Ich komme einfach nicht dahinter wie bei einem "so umfangreichen" Bezug die Syntax funktionieren soll.
Danke,
Loboduck
Anzeige