"schön, dass du den Fehler gefunden hast, die Lösung aber nicht bennenst..."
find ich auch
Das Problem ist die Verwendung von Cells innerhalb von Range ;)
Dim Y As Range, X As Range, N
With Sheets(intSheets)
N = .Cells(a, 1).Value
Set Y = .Range(.Cells(a, 3), .Cells(a + 95, 3))
Set X = .Range(.Cells(a, 2), .Cells(a + 95, 2))
End With
With ActiveChart
.SeriesCollection.NewSeries
With .SeriesCollection(intRow)
.Name = N
.Values = Y
.XValues = X
End With
End With
|