Graph Bereich Variabel gestalten

Bild

Betrifft: Graph Bereich Variabel gestalten
von: Sven
Geschrieben am: 30.10.2015 11:37:27

Hallo Zusammen,
ich lasse mir einen Graphen über einen Berich anzeigen mit :


  • Set ch = Worksheets("Start").ChartObjects.Add(Left:=180, Width:=450, Top:=122, Height:=330).Chart
    With ch
    '************************ Hier die Frage *************************
    .SetSourceData Source:=Sheets("Data").Range("CO" & erstezeileL & ":CO" & letztezeile), PlotBy:=xlColumns
    '*************************************************************************
    .ChartType = xlXYScatterSmoothNoMarkers
    .HasTitle = True
    .ChartTitle.Characters.text = nameaxisL 'header
    .Axes(xlCategory, xlPrimary).HasTitle = True
    .Axes(xlCategory, xlPrimary).AxisTitle.Characters.text = "loaded parts"
    .Axes(xlValue, xlPrimary).HasTitle = True
    .Axes(xlValue, xlPrimary).AxisTitle.Characters.text = " in micron"

    End With

  • Wie kann ich mir die Spalten "CO" auch noch variabel machen?
    Ich habe es mit

  • .Range(Cells(1, 1), Cells(5, 3))

  • probiert. Geht leider nicht
    Hat jemand eine Idee. Danke schonmal
    VG
    Sven

    Bild

    Betrifft: AW: Graph Bereich Variabel gestalten
    von: Beverly
    Geschrieben am: 30.10.2015 17:48:42
    Hi Sven,
    nach diesem Prinzip:

    Sheets("Data").Range(Sheets("Data").Cells(erstezeileL, 1), Sheets("Data").Cells(letztezeile, 1))



    Bild

    Betrifft: AW: Graph Bereich Variabel gestalten
    von: Sven
    Geschrieben am: 02.11.2015 17:08:21
    Danke das funktioniert!
    Weisst du evlt auch noch wie ich einen Bereich im Worksheet "Sort" in einer Formel verarbeiten kann und diesen im Sheet "Start" reinschreibe? Unter Office 2007 ging das noch so:

    
    ThisWorkbook.Worksheets("Start").Cells(13, 14).Formula = _
           "=Average(Sort!" & .Range(.Cells(iStartReihe, iStartSpalte), _
           .Cells(iEndReihe, iEndSpalte)).Address(0, 0) & ")"
    

    Seit 2010 geht das nicht mehr.
    Danke nochmals

    Bild

    Betrifft: AW: Graph Bereich Variabel gestalten
    von: Beverly
    Geschrieben am: 02.11.2015 17:45:48
    Hi Sven,
    meinst du so etwas:

    With ThisWorkbook.Worksheets("Sort")
        ThisWorkbook.Worksheets("Start").Cells(13, 14).Formula = _
               "=Average(Sort!" & .Range(.Cells(iStartReihe, iStartSpalte), _
               .Cells(iEndReihe, iEndSpalte)).Address(0, 0) & ")"
    End With
    



    Bild

    Betrifft: AW: Graph Bereich Variabel gestalten
    von: Sven
    Geschrieben am: 03.11.2015 07:44:26
    Danke Karin,
    ja das meine ich aber beim Ausführen gibt es einen Laufzeitfehler 1004.Anwendungs- oder objekt definierter Fehler. Habe ich da noch etwas vergessen?
    VG
    Sven

    Bild

    Betrifft: AW: Graph Bereich Variabel gestalten
    von: Sven
    Geschrieben am: 02.11.2015 18:13:37
    Danke das funktioniert!
    Weisst du evlt auch noch wie ich einen Bereich im Worksheet "Sort" in einer Formel verarbeiten kann und diesen im Sheet "Start" reinschreibe? Unter Office 2007 ging das noch so:

    
    ThisWorkbook.Worksheets("Start").Cells(13, 14).Formula = _
           "=Average(Sort!" & .Range(.Cells(iStartReihe, iStartSpalte), _
           .Cells(iEndReihe, iEndSpalte)).Address(0, 0) & ")"
    

    Seit 2010 geht das nicht mehr.
    Danke nochmals

    Bild

    Betrifft: AW: Graph Bereich Variabel gestalten
    von: Sven
    Geschrieben am: 03.11.2015 07:47:35
    Hallo Karin,
    kommando zurück! Habs gefunden. Variable war Tippfehler von mir drin. Jetzt gehts! Super Vielen Dank nochmal!!!!!

     Bild

    Beiträge aus den Excel-Beispielen zum Thema "Graph Bereich Variabel gestalten"