kostenloser Webspace werbefrei: lima-city


Problem bei Schleife mit SeriesCollection.Values (Excel)

lima-cityForumProgrammiersprachenBasic

  1. Autor dieses Themas

    karikato

    Kostenloser Webspace von karikato

    karikato hat kostenlosen Webspace.

    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. 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 :prost:

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

    karikato

    Kostenloser Webspace von karikato

    karikato hat kostenlosen Webspace.

    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 :prost:


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

    Ein epischer 500. Post :prost:
  5. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

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

Dir gefällt dieses Thema?

Über lima-city

Login zum Webhosting ohne Werbung!