kostenloser Webspace werbefrei: lima-city

Problem bei Schleife mit SeriesCollection.Values (Excel)

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   karikato

   

   karikato hat kostenlosen Webspace.

   12:01, 22.2.2012

   Hallo,
   ich versuche mit einem Makro ein Diagramm in Excel zu erstellen und irgendwie habe ich bei folgendem Quellcode ein Problem:
   
   

   'Schleife für die ersten 5 Graphen
       While f < 6
       
       ActiveChart.SeriesCollection.NewSeries
       ActiveChart.SeriesCollection(f).Select
       Selection.Name = Worksheets("Summary").Cells(4, i)
       Selection.XValues = "=Summary!$B$7:$B$" & j + 7
       Selection.Values = Worksheets("Summary").Range(Cells(7, i + 1), Cells(j + 7, i + 1))
       Selection.MarkerStyle = -4142
       Selection.Format.Line.Visible = msoTrue
   
       
       i = i + 6
       f = f + 1
       Wend

   
   
   Das Problem taucht bei Selection.Values = [...] auf.
   In der Zeile kommt immer der Laufzeitfehler 1004 mit der Aussage "Die Methode 'Cells' für das Objekt '_Global' ist fehlgeschlagen"
   
   Kann mir da jemand weiterhelfen? Was stimmt an der Syntax nicht? :s
   
   
   Zu den Variablen:
   f zählt durch die Graphen
   j ist der Zeilenzähler
   i ist der Spaltenzähler
   
   Beitrag zuletzt geändert: 22.2.2012 15:26:54 von karikato

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. darkpandemic

   

   darkpandemic hat kostenlosen Webspace.

   20:23, 22.2.2012

   Hallo karikato,
   
   probiere mal:
   

   Selection.Values = Worksheets("Summary").Range( _
                          Worksheets("Summary").Cells(7, i + 1), _
                          Worksheets("Summary").Cells(j + 7, i + 1))

   
   
   Edit: Mein 500. Post
   
   Beitrag zuletzt geändert: 22.2.2012 20:24:50 von darkpandemic
4. Autor dieses Themas

   karikato

   

   karikato hat kostenlosen Webspace.

   14:05, 29.2.2012

   Hallo darkpandemic,
   
   

   darkpandemic schrieb:
   Hallo karikato,
   
   probiere mal:
   

   Selection.Values = Worksheets("Summary").Range( _
                          Worksheets("Summary").Cells(7, i + 1), _
                          Worksheets("Summary").Cells(j + 7, i + 1))

   
   
   Edit: Mein 500. Post

   
   
   vielen dank, genau das war es! :D
   Seltsam, ich dachte ich habe diese Variante sogar auch schon ausprobiert.. scheinbar nicht :)
   
   Ein epischer 500. Post

5. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?