2 reeksen uit aparte bestanden toevoegen aan een grafiek

[jordi1986]

grafiek excel

Beste forumbezoekers,

Ik ben bezig een programma te schrijven waaruit waarden (van een tekstbestand) worden weergegeven in een grafiek. Nu heb ik het voor elkaar gekregen om met VBA een grafiek in hetzelfde bestand als de gegevens te krijgen, alleen lukt het nog niet om in een nieuw excelbestand de waarden uit de andere bestanden te halen.

De andere bestanden wil ik benaderen vanuit een combobox (dit omdat de naam elke keer anders is). De variabelen zijn combo1 en combo2. Het daadwerkelijke probleem zit in het vetgedrukte stukje tekst naar mijn idee.

Kan iemand mij misschien verder helpen, hoe ik deze variabele bestanden kan toepassen in de grafiek?

Met vriendelijke groet,

Jordi


Workbooks.Add
Charts.Add

ActiveChart.ChartType = xlXYScatterSmoothNoMarkers

ActiveChart.SeriesCollection.NewSeries

Workbooks(combo1).Activate

ActiveChart.SeriesCollection(1).XValues = "=[combo1]combo1!R1C1:R32000C1"
ActiveChart.SeriesCollection(1).Values = "=[combo1]combo1!R1C2:R32000C2"
ActiveChart.SeriesCollection(2).XValues = "=[combo2]combo2!R1C1:R32000C1"
ActiveChart.SeriesCollection(2).Values = "=[combo2]combo2!R1C2:R32000C2"
ActiveChart.Location Where:=xlLocationAutomatic

ActiveChart.SeriesCollection(1).Name = combo1
ActiveChart.SeriesCollection(2).Name = combo2

With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = Titel
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = xas
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = yas
End With