Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1380to1384
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Range auswählen für SeriesCollection

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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Range auswählen für SeriesCollection
18.09.2014 10:43:38
Rudi
Hallo,
Set rCopyRng1 = Sheets("Daten 1").Range(Sheets("Daten 1").Cells(2, 1), Sheets("Daten 1").Cells(lRowCounter, 1))
Gruß
Rudi

AW: Range auswählen für SeriesCollection
18.09.2014 12:16:40
Marcel
Leider funktioniert das auch nicht und der Fehler bleibt derselbe :(

AW: Range auswählen für SeriesCollection
18.09.2014 12:47:44
Rudi
Hallo,
ich sehe an deinem Code nirgends, dass lRowCounter einen Wert erhält.
Gruß
Rudi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige