Variabele grafiekgegevens in loop

[foxie1982]

Hallo,
Ik heb een macro waarin een grafiek gemaakt wordt van bepaalde gegevens. Het aantal gegevens die in 1 grafiek moet komen, kan veranderen.

Hieronder een stukje code:

b = 3
rij = 25
i=1    
    
Do Until i = rij
        ActiveChart.SeriesCollection(b).Name = "=""theo"""
        ActiveChart.SeriesCollection(b).XValues = "=gegevens!R2C21:R" & rij & "C21"
        ActiveChart.SeriesCollection(b).Values = "=gegevens!R2C22:R" & rij & "C22"
        b = b + 1
        i = i + 1
Loop

Het blijkt niet mogelijk te zijn om bij 'SeriesCollection(X)' een variabele te zetten? Is dit op een andere manier op te lossen?

Alvast bedankt!

 

[foxie1982]

Ik heb ondertussen het antwoord zelf gevonden... Indien er nog iemand dit probleem zou hebben, hier alvast de oplossing:

i = 1
b = 3
    
    Do Until i = rij
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(b).Name = "=""positie"""
        ActiveChart.SeriesCollection(b).XValues = "=Gegevens!R2C" & kolom & ":R" & rij & "C" & kolom
        ActiveChart.SeriesCollection(b).Values = "=Gegevens!R2C" & kolom + 1 & ":R" & rij & "C" & kolom + 1
        kolom = kolom + 2
        b = b + 1
        i = i + 1
    Loop