what the problem?

Excel245
hi

i want to program a chart. but i got the error(1004) in the line .XValues =

xwerte. this error appears only when counter is 1.

can someone help me? is the array xwerte too big?

chris





Dim diagramm, counter, zähler, wert, n, xwerte(50), ywerte(50)

Dim diagrammobj



ActiveWorkbook.ActiveSheet.ChartObjects.Add(0, 0, 800, 900).Name =

"Diagramm"

Set diagramm =

Workbooks("Frequenz.xls").Worksheets("Motoren").ChartObjects(1)

Set diagrammobj =

Workbooks("Frequenz.xls").Worksheets("Motoren").ChartObjects(1).Chart

diagrammobj.ChartType = xlXYScatterLines

diagrammobj.SeriesCollection.NewSeries

diagrammobj.Axes(xlCategory).MaximumScale = 6000

diagrammobj.Axes(xlValue).MaximumScale = 2500



wert = 120



For counter = 0 To 1



If counter = 0 Then



For n = 0 To 50

xwerte(n) = n * 60

ywerte(n) = wert

Next



Else



For n = 0 To 50

xwerte(n) = (n + 51) * 60

ywerte(n) = wert

Next



End If



zähler = zähler + 1

diagrammobj.SeriesCollection.NewSeries



With diagrammobj.SeriesCollection(zähler)

.Border.ColorIndex = 3

.MarkerStyle = xlMarkerStyleSquare

.MarkerSize = 9

.XValues = xwerte

.Values = ywerte

End With



Next


-