Diagramm mit VBA

26/05/2008 - 16:17 von Harald Schlüter | Report spam
Hallo Zusammen,

Ich habe folgenden VBA-Code (Auszug) zur Erstellung eines Diagramms:

-
Sub Chart

Charts.Add after:=Worksheets(Worksheets.Count)
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData
Source:=Sheets("Tabelle1").Range("B1:D304"), _
PlotBy:=xlRows
ActiveChart.SeriesCollection.NewSeries
' EINGABE DER ANZEIGEBEREICHE
ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!
R5C162:R5C221"
ActiveChart.SeriesCollection(1).Values = "=Tabelle1!R6C39:R6C98"
ActiveChart.SeriesCollection(1).Name = "=Tabelle1!R6C36"
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
...
...
End sub

Mein Problem ist, dass ich in Zeile (von oben kopiert):

ActiveChart.SeriesCollection(1).Values = "=Tabelle1!R6C39:R6C98"

die End-Column (hier C98) dynamisch sein muss und aus einer Excel-
Tabelle aus der Zelle A1 in Tabelle 2 gezogen werden soll (für C98
steht in Zelle A1 dann die 98).

Ist so etwas möglich?


Danke im Voraus!

Viele Grüße
Harald
 

Lesen sie die antworten

#1 Beverly
26/05/2008 - 16:35 | Warnen spam
Hi Harald,

mal ungetestet:

ActiveChart.SeriesCollection(1).Values = "=Tabelle1!R6C39:R6C" &
Worksheets("Tabelle2").Range("A1")

Bis spàter,
Karin
http://beverly.excelhost.de/

"Harald Schlüter" wrote:

Hallo Zusammen,

Ich habe folgenden VBA-Code (Auszug) zur Erstellung eines Diagramms:

-
Sub Chart

Charts.Add after:=Worksheets(Worksheets.Count)
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData
Source:=Sheets("Tabelle1").Range("B1:D304"), _
PlotBy:=xlRows
ActiveChart.SeriesCollection.NewSeries
' EINGABE DER ANZEIGEBEREICHE
ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!
R5C162:R5C221"
ActiveChart.SeriesCollection(1).Values = "=Tabelle1!R6C39:R6C98"
ActiveChart.SeriesCollection(1).Name = "=Tabelle1!R6C36"
ActiveChart.Location Where:=xlLocationAsNewSheet
With ActiveChart
.HasTitle = True
...
...
End sub

Mein Problem ist, dass ich in Zeile (von oben kopiert):

ActiveChart.SeriesCollection(1).Values = "=Tabelle1!R6C39:R6C98"

die End-Column (hier C98) dynamisch sein muss und aus einer Excel-
Tabelle aus der Zelle A1 in Tabelle 2 gezogen werden soll (für C98
steht in Zelle A1 dann die 98).

Ist so etwas möglich?


Danke im Voraus!

Viele Grüße
Harald

Ähnliche fragen