Ich habe ein kleines Problem mit folgendem Code:
Set chtLGS = Charts.Add
chtLGS.Activate
With ActiveChart
' ---- diagram look
.ChartType = xlXYScatterLinesNoMarkers
.SeriesCollection.NewSeries 'RH
.SeriesCollection.NewSeries 'Temp
.SeriesCollection.NewSeries 'IAQ
.HasTitle = True
.ChartTitle.Characters.Text = "LGS"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Timestamp"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Counts"
' ---- count rows in raw data
lRowCounterMicronas = Sheets("Daten 1").Cells(Rows.Count, 1).End(xlUp).Row
lRowCounterC5034 = Sheets("Daten 2").Cells(Rows.Count, 1).End(xlUp).Row
' ---- RH
.SeriesCollection(1).Name = "RH / %"
Set rCopyRng1 = Sheets("Daten 1").Range(Cells(2, 1), Cells(lRowCounter, 1))
Set rCopyRng2 = Sheets("Daten 1").Range(Cells(2, 6), Cells(lRowCounter, 6))
.SeriesCollection(1).XValues = rCopyRng1
.SeriesCollection(1).Values = rCopyRng2
.SeriesCollection(2).Name = "Temp / °C"
.SeriesCollection(3).Name = "IAQ / %"
.Location Where:=xlLocationAsObject, Name:="Diagramm"
End With
Er steigt immer mit Laufzeitfehler 1004 aus in der Zeile:
rCopyRng1 = Sheets("Daten 1").Range(Cells(2, 1), Cells(lRowCounter, 1))
Ich möchte aus dem Sheet "Daten 1" Daten per SeriesCollection sammeln um sie für einen Chart auf einem anderen Sheet zu verwenden.
Vielen Dank schonmal.