[VBA] Macro: grafiek met variabele x- en y-waarden

[Verwijderd]

Ik raak er maar niet uit hoe ik dit moet doen.
Kan iemand me helpen?
Heb voorlopig dit:

Visual Basic:

Dim aantalRijen As Integer
i = 12
Do While (Not IsEmpty(Cells(i, 1)))
    i = i + 1
Loop

aantalRijen = i - 1

Dim x1 As Long, x2 As Long
Dim myXValues As String
Dim myYValues As String
x1 = 12
x2 = aantalRijen
myXValues = "=Meetwaarden!R" & CStr(x1) & "C2:R" & CStr(x2) & "C2"
myYValues = "=Meetwaarden!R" & CStr(x1) & "C3:R" & CStr(x2) & "C3"

    Charts.Add
    ActiveChart.ChartType = xlXYScatter
    ActiveChart.SetSourceData Source:=Sheets("Meetwaarden").Range("E12")
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(1).XValues = myXValues
    ActiveChart.SeriesCollection(1).YValues = myYValues

Dit lijkt me wel correct, maar telkens komt er een foutmelding op bij:
ActiveChart.SeriesCollection(1).YValues = myYValues
Namelijk:
'Fout 438 tijdens uitvoering. Deze eigenschap of methode wordt niet ondersteund door dit object'

Ik gebruik VBA 6.3
Weet iemand de oplossing?
Alvast bedankt

[ Voor 8% gewijzigd door Lustucru op 14-12-2005 20:33 ]

[Lustucru]

Yvalues is géén property van het series object. Values wel. Eventueel gebruik je de Add() methode van het seriescollection object

offtopic:
Ik heb je code even tussen [code][/code] tags gezet. Dat leest wat makkelijker. Maar dit had je makkelijk zelf kunnen vinden als je in de vbe op F1 had gedrukt terwijl je cursor op series stond. Het is verstandig om even de Policy: Alle regels die op het forum gelden te lezen zodat je weet wat we van een topicstart op GOT verwachten, en dat is niet precies een lapje code met aan het forum de vraag om het op te lossen .

En welkom op GOT

[Verwijderd]

Dank dank!!

Inderdaad, dat was de fout.

EDIT: opgelost.

[ Voor 62% gewijzigd door Verwijderd op 14-12-2005 20:45 ]