Daten für Charts via Schleife?
14.12.2006 10:56:49
Christian
ich möchte viele Barcharts automatisert erstellen.
(1.) Der Spalten-Bereich ist nicht immer gleich, das N
kann sich also auch ändern, aber wie referenziere ich das.
"A102:?102" sollen immer als Beschriftung genommen werdern.
(2.) Die Daten für die Grafik sind immer in 4Zeilen + 1Leerzeile
und ich will diese via Schleife ansprechen, weiß aber auch nicht wie
ich das i referenziere.
(3.)Kann ich die Texte auch mit einer Variable setzen, welche
den String-Inhalt einer Zelle im aktiven Worksheet enthält.
Vielen Dank für Startpunkte
Gruß Christian
Range(Selection, Selection.End(xlToRight)).Select
For i = 103 To 185 Step 5
Charts.Add
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Simulation").Range( _
"A102:N102,A108:N111"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Technology"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Average"
.Axes(xlCategory).HasTitle = True
.Axes(xlCategory).AxisTitle.Characters.Text = "utilities"
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With