Problem mit for...next..schleife
27.07.2005 09:07:38
Ramon
Der Graph 2 basiert auf Daten aus den Zeilen 25 und 26, wiederum aus den Spalten 2 bis 203.
Vielen Dank im Vorraus für den der mal drüber schaut...Ramon
Sub Graphic()
Dim i As Integer
For i = 1 To 2
Sheets("Graph_L5").Select
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).XValues = Sheets("Tot_L5").Range(Cells(i * 13 - 1, 2), Cells(i * 13 - 1, 203))
ActiveChart.SeriesCollection(i).Values = Sheets("Tot_L5").Range(Cells(i * 13, 2), Cells(i * 13, 203))
Next i
End Sub