FullSeriesCollection
12.04.2017 16:46:02
DENNIS
die letzte Codezeile bereitet mir Probleme:
<i>.FullSeriesCollection(1).Values = Range(Cells(12, 12 + y), Cells(Cells(9, 5), 12 + y))
.FullSeriesCollection(1).XValues = Range(Cells(12, 12), Cells(Cells(9, 5), 12))
If Cells(6, 12 + y) > 1 Then
<b>.FullSeriesCollection(2).Values = Range(Cells(12, 12 + y+1), Cells(Cells(9, 5), 12 + y))</b></i>
In der If-Abfrage schaut er ob eine zweite Zeitreihe gezeichnet werden soll. Falls ja, soll er die nächste Spalte nehmen, leider kommt immer eine Fehlermeldung. Weder Makroaufzeichnung noch F1 haben mich weitergebracht.
Vielen Dank vorab.
Gruss Dennis