---

Får følgende fejl i min kode
Run-time error 1004;
Metoden Select for klassen Series mislykkes

Så hvordan finder jeg ud af hvad ActiveChart.SeriesCollection(4).Select er ?
Kan ikke finde noget på mine diagrammer der hedder noget med 4


Koden har virket for mig i lang tid, men ville lige ændere noget på valgte grafer,
men hvad er det som jeg er kommet til at ændre så makro ikke kan finde ud af det ?



ActiveChart.Axes(xlCategory).MinorGridlines.Select

Windows("Målepunkter grafer.xls").SmallScroll ToRight:=-8
ActiveChart.Axes(xlValue, xlSecondary).AxisTitle.Select
ActiveChart.Axes(xlValue, xlSecondary).Select
ActiveChart.Legend.Select
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(4).Select *******************************************************Fejlen kommer her
ActiveChart.SeriesCollection(3).Select
ActiveChart.SeriesCollection(5).Select
ActiveChart.SeriesCollection(5).XValues = "='Grafer'!" & dageomr & "C1:" & slutomr & "C1"
ActiveChart.SeriesCollection(1).XValues = "='Grafer'!" & dageomr & "C1:" & slutomr & "C1"
ActiveChart.SeriesCollection(2).XValues = "='Grafer'!" & dageomr & "C1:" & slutomr & "C1"
Windows("Målepunkter grafer.xls").SmallScroll ToRight:=7
ActiveChart.SeriesCollection(2).Select
Windows("Målepunkter grafer.xls").SmallScroll ToRight:=11
ActiveWindow.Visible = False
Windows("Målepunkter grafer.xls").Activate
ActiveSheet.ChartObjects("Diagram 21").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(5).Select
ActiveChart.SeriesCollection(5).Values = "='Grafer'!" & dageomr & "C32:" & slutomr & "C32"
ActiveChart.SeriesCollection(5).XValues = "='Grafer'!" & dageomr & "C28:" & slutomr & "C28"
ActiveChart.SeriesCollection(1).XValues = "='Grafer'!" & dageomr & "C28:" & slutomr & "C28"
ActiveChart.SeriesCollection(2).XValues = "='Grafer'!" & dageomr & "C28:" & slutomr & "C28"

Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.