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").Ch artObjects(1)
Set diagrammobj =
Workbooks("Frequenz.xls").Worksheets("Motoren").Ch artObjects(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