Fout 9 tijdens uitvoering: Het subscript valt buiten het vereik

[MartinHelleman]

Beste,

waarom krijg ik deze foutmelding?

Heb een module met de volgende code.

Sub AddNewCharts()

    Charts.Add After:=Charts("Chart1")
    
    Sheets.Add Type:=XlSheetType.xlChart
    
End Sub

Ik blijf deze foutmelding krijgen.

 

[tkint]

Beste,

Deze code verkrijg ik bij het opnemen van een macro :

ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered

 

[VenA]

Gaat het zo beter?

Charts.Add , Sheets("Chart1")

 

[MartinHelleman]

Re

Ja daarmee is het opgelost, bedankt.

 

[HSV]

After is een bug in Excel met Grafiekbladen.

Als je het achter blad Chart1 wilt, moet je het verhuizen met 'Move'.

Charts.Add
ActiveSheet.Move , Sheets("Chart1")

 

[VenA]

Wordt er inderdaad niet achter geplaatst.

Zo gaat het ook goed

Sheets.Add , Sheets("Chart1"), , xlChart

 

[HSV]

Helaas niet in Excel 2007 (had ik al getest).
Andere versies wel?

 

[VenA]

Werkt bij mij in zowel XL-2007 als XL-2010

Edit
En ook in XL-2003

 

[HSV]

Heb jij mazzel, ik lees dat er meer problemen zijn in 2007 en 2010.