Error 1004 VBA

[fulco25]

Hallo allemaal

Bij het pogrammeren in vba in excel krijg ik een foutmelding 1004 op de regel die dik gedrukt is:
Op blad2 staan de gegevens voor de grafiek
De grafiek staat op blad "Grafiek Analyse"
Sadres = de laatste regel met de waarde groter dan 0

[TABLE="width: 694"]
[TR]
[TD="class: xl66, width: 64"][/TD]
[TD="class: xl66, width: 64"] A[/TD]
[TD="class: xl63, width: 227"] B[/TD]
[TD="class: xl63, width: 126"] C[/TD]
[TD="class: xl63, width: 93"] D[/TD]
[TD="class: xl64, width: 184"] E[/TD]
[TD="class: xl64, width: 184"][/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64"] 1[/TD]
[TD="class: xl66, width: 64"]Nummer[/TD]
[TD="class: xl63, width: 227"]Leverancier[/TD]
[TD="class: xl63, width: 126"]Aantal opdrachten[/TD]
[TD="class: xl63, width: 93"]Afkeur aantal[/TD]
[TD="class: xl64, width: 184"]Gemiddelde overschrijding[/TD]
[TD="class: xl64, width: 184"][/TD]
[/TR]
[TR]
[TD="class: xl66, width: 64"][/TD]
[TD="class: xl66, width: 64"]12345[/TD]
[TD="class: xl63, width: 227"]Lev[/TD]
[TD="class: xl63, width: 126"]125[/TD]
[TD="class: xl63, width: 93"]5[/TD]
[TD="class: xl64, width: 184"]0%[/TD]
[TD="class: xl64, width: 184"][/TD]
[/TR]
[/TABLE]

    Range("A1").Activate
    Sheets("Grafiek Analyse").Select
    
    BereikC = "B2:E" & Sadres
    BereikD = "$B$2:$B$" & Sadres
    ActiveSheet.ChartObjects("Grafiek").Delete
    
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range(BereikC)
    ActiveChart.Legend.Select
    ActiveChart.Axes(xlCategory).Select
    [B]ActiveChart.SeriesCollection(1).Name = "=Blad2!$C$1"[/B]
    ActiveChart.SeriesCollection(2).Name = "=Blad2!$D$1"
    ActiveChart.SeriesCollection(3).Name = "=Blad2!$E$1"
    ActiveChart.SeriesCollection(4).Delete
    ActiveChart.SeriesCollection(4).Delete
    ActiveChart.SeriesCollection(3).XValues = Range(BereikD)
    ActiveChart.ChartArea.Select
    ActiveChart.Parent.Name = "Grafiek"
   
    Sheets("Blad2").Select
    Range("A1").Activate

Al vast bedank voor de hulp

 

[edmoor]

Maak er eens dit van:
ActiveChart.SeriesCollection(1).Name = "=Blad2!C1"

 

[fulco25]

Maak er eens dit van:
ActiveChart.SeriesCollection(1).Name = "=Blad2!C1"

Helaas dit werkt niet.

 

[edmoor]

Het blad met de naam Blad2 bestaat wel? Zijn daar de cellen C1 t/m D1 ook gevuld met juiste waarden?

Bij fout 1004 wordt vaak ook een omschrijving gegeven.
Laat die hier ook even weten.

 

[fulco25]

minder elegante manier

Edmoor:

Ik krijg de volgende fout:
Fout 1004 tijdens uitvoering:
Door de toepassing of door object gedefineerde fout.
De genoemde tabbladen (Sheets) bestaan

Ik zat al aan een minder elegante manier te denken voor het probleem echter komt het andere probleem de hoek om.
De grafiek knippen en op de tabblad Grafiek Analyse plakken. - > Geen Probleem
De oude grafiek verwijderen met de code

 Sheets("Grafiek Analyse").ChartObjects("Grafiek").Delete

Roept weer een andere fout op : fout 9 subscript valt buiten bereik, terwijl de sheets wel bestaan.

 

[edmoor]

Je kan dan beter even je document hier plaatsen.

 

[fulco25]

Je kan dan beter even je document hier plaatsen.

Dit zou ik graag doen als er geen vertrouwelijke gegevens is zouden staan.

 

[edmoor]

Misschien dat je hem kan anonimiseren?

 

[fulco25]

Misschien dat je hem kan anonimiseren?

De fout is gevonden:
de volgorde van de argumenten was verkeerd.
De juiste volgorde is :

    With ActiveChart
        .ChartType = xlColumnClustered
        .SetSourceData Source:=Range(BereikC)
        .Axes(xlCategory).Select
        .Legend.Select
        .SeriesCollection(1).Name = "=Blad2!$C$1"
        .SeriesCollection(2).Name = "=Blad2!$D$1"
        .SeriesCollection(3).Name = "=Blad2!$E$1"
        .SeriesCollection(3).XValues = Range(BereikD)
    End With

De .seriescollection valt onder de .legend en niet onder de .axes,
kwam er met toeval achter met het aanpassen van de grafiek.

De grafiek verwijderen op een chart blad gaat met

    ActiveChart.ChartArea.ClearContents

 

[edmoor]

Ok dan :thumb:

 

[snb]

Vermijd darraom altijd 'select' en 'activate:

With ActiveChart
        .ChartType = xlColumnClustered
        .SetSourceData Source:=Range(BereikC)
        .SeriesCollection(1).Name = "=Blad2!$C$1"
        .SeriesCollection(2).Name = "=Blad2!$D$1"
        .SeriesCollection(3).Name = "=Blad2!$E$1"
        .SeriesCollection(3).XValues = Range(BereikD)
End With