[VB] Grafieken tekenen in Excel

[heijckmann]

Met behulp van VB laat ik in Excel 97 een grafiek tekenen.

Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Blad1!R2C1:R50C3"
ActiveChart.SeriesCollection(1).Values = "=Blad1!R2C4:R50C4"
ActiveChart.SeriesCollection(1).Name = "=Blad1!R1C4"

Nu wil ik graag de .Values met behulp van variabelen aansturen. De tabel heeft namelijk niet iedere keer dezelfde lengte. Hoe kan ik dit doen? Ik heb al het een en ander geprobeert zoals:

ActiveChart.SeriesCollection(2).Values = .Range(.Cells(eersterij, 4), .Cells(laatsterij, 4))

Helaas werkt dit niet. Heeft iemand enig idee?


Victor

[brokenp]

Ik dnk dat je dit gewoon met een stringbewerking moet doen

code:

actieveblad= "blad1"
beginrange ="R2C4" 
eindrange = "R50C4"
actieverange = actieveblad & "!" & beginrange & ":" & eindrange

ActiveChart.SeriesCollection(1).Values = "actieverange"

moet je alleen nog goed de coordinaten uitlezen