Range auswählen für SeriesCollection
18.09.2014 10:33:30
Marcel
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.
Anzeige