Named Range in grafiek VBA

[Eggie]

Hallo,

weet iemend hoe je named ranges aan een grafiek kan toewijzen in VBA?

Hieronder ter illustratie een gedeelte van de code. No zou ik dus bij:

With ActiveChart.SeriesCollection.NewSeries
.Values = ....

de named range willen zetten, maar dit werkt niet..

Bedankt voor jullie hulp!

Mvg,

Eggie

ActiveSheet.ChartObjects("Chart 1").Activate
    With ActiveChart
        Do Until .SeriesCollection.Count = 0
            .SeriesCollection(1).Delete
        Loop
    End With

' Show BA Chart

If Range("C70").Value = "BA" Then
ActiveSheet.ChartObjects("Chart 1").Activate
        With ActiveChart.SeriesCollection.NewSeries
           .Values = Range("VolumesBA")
           .Name = "BA"
        End With

 

[Wigi]

Lukt het al met een gewoon bereik? Bvb Range("A1:A10")

 

[Roncancio]

In bijgevoegd bestand zit een grafiek met 2 naambereiken.
Deze namen staan ook in de blauwe cel.
Door een keuze te maken uit 1 van deze namen wordt de grafiek aangepast.
Ik vermoed dat de foutmelding komt omdat je tekst in het namenbereik hebt geplaatst.

Met vriendelijke groet,


Roncancio