Microsoft Excel

Herbers Excel/VBA-Archiv

Range auswählen für SeriesCollection

Betrifft: Range auswählen für SeriesCollection von: Marcel
Geschrieben am: 18.09.2014 10:33:30

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.

  

Betrifft: AW: Range auswählen für SeriesCollection von: Rudi Maintaire
Geschrieben am: 18.09.2014 10:43:38

Hallo,
Set rCopyRng1 = Sheets("Daten 1").Range(Sheets("Daten 1").Cells(2, 1), Sheets("Daten 1").Cells(lRowCounter, 1))

Gruß
Rudi


  

Betrifft: AW: Range auswählen für SeriesCollection von: Marcel
Geschrieben am: 18.09.2014 12:16:40

Leider funktioniert das auch nicht und der Fehler bleibt derselbe :(


  

Betrifft: AW: Range auswählen für SeriesCollection von: Rudi Maintaire
Geschrieben am: 18.09.2014 12:47:44

Hallo,
ich sehe an deinem Code nirgends, dass lRowCounter einen Wert erhält.

Gruß
Rudi


 

Beiträge aus den Excel-Beispielen zum Thema "Range auswählen für SeriesCollection"