Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: XY-Diagramm jede Zeile als Datenreihe

XY-Diagramm jede Zeile als Datenreihe
25.01.2016 15:32:43
Flo
Hallo Zusammen,
ich habe ein Problem mit Excel und komme nicht mehr weiter. Habe schon allerhand recherchiert, aber leider trifft nichts so ganz auf mein Problem zu...
Problem: Beim Erstellen eines Diagrammes, nimmt Excel die Zeilen A10:200 immer als EINE Datenreihe und definiert sie nicht jeweils als eine. Deswegen sind die Datenbeschriftungen nicht korrekt
Meine Versuche:
  • alles von Hand, sprich, einzeln die Datenreihen abarbeiten (dauert zu lange)

  • Mit VBA automatisch die Inhalte auslesen und dann das Gleiche wiederholen mit der nächsten Zeile (Selber kann ich das nicht, und die Abgewandelten VBA's aus dem Internet wollen auch nicht klappen


  • Genauer:
    A10:A200 sollen die Datenbeschriftungen (sprich die Reihennamen) sein
    M10:M200 soll der X-Wert sein
    R10:R200 soll der Y-Wert sein
    Ziel: Zu jedem Punkt, den exakten Reihennamen

    Kann mir bitte jemand weiterhelfen?
    Danke und Gruß

    Anzeige

    4
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: XY-Diagramm jede Zeile als Datenreihe
    25.01.2016 16:10:15
    Beverly
    Hi,
    meinst du vielleicht so:
    Sub DiaErstellen()
    Dim lngZeile As Long
    Dim chrDia As ChartObject
    Set chrDia = ActiveSheet.ChartObjects.Add(0, 0, 350, 200)
    With chrDia.Chart
    .ChartType = xlXYScatter
    For lngZeile = 10 To 200
    With .SeriesCollection.NewSeries
    .Name = "=" & ActiveSheet.Name & "!" & Cells(lngZeile, 1).Address
    .XValues = Cells(lngZeile, 13)
    .Values = Cells(lngZeile, 18)
    End With
    Next lngZeile
    End With
    Set chrDia = Nothing
    End Sub
    


    Anzeige
    AW: XY-Diagramm jede Zeile als Datenreihe
    26.01.2016 07:04:25
    Flo
    Vielen Dank! Hat funktioniert! Passt wunderbar!

    AW: XY-Diagramm jede Zeile als Datenreihe
    25.01.2016 16:33:07
    Rudi
    Hallo,
    rechtsklick aufs Diagramm -Daten auswählen - Spalte und Zeilen tauschen.
    Gruß
    Rudi

    AW: XY-Diagramm jede Zeile als Datenreihe
    25.01.2016 18:42:20
    Beverly
    Hi Rudi,
    das funktioniert nur, wenn die Spalten Überschriften haben und auch mit markiert werden, weil Excel andernfalls die erste Zeile des markierten Bereichs als Überschriftenzeile (und damit als standardmäßige Reihennamen) für Spaltenanordnung interpretiert.


    Anzeige
    ;

    Forumthreads zu verwandten Themen

    Anzeige
    Anzeige
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige
    Anzeige

    Infobox / Tutorial

    XY-Diagramm jede Zeile als Datenreihe in Excel


    Schritt-für-Schritt-Anleitung

    Um ein XY-Diagramm in Excel zu erstellen, bei dem jede Zeile als separate Datenreihe behandelt wird, folge diesen Schritten:

    1. Daten vorbereiten: Stelle sicher, dass Deine Daten gut strukturiert sind. Zum Beispiel:

      • A10:A200: Datenbeschriftungen (Reihennamen)
      • M10:M200: X-Werte
      • R10:R200: Y-Werte
    2. VBA-Editor öffnen:

      • Drücke ALT + F11, um den VBA-Editor zu öffnen.
    3. Neues Modul erstellen:

      • Klicke auf Einfügen > Modul.
    4. VBA-Code einfügen: Kopiere den folgenden VBA-Code und füge ihn in das Modul ein:

      
      Sub DiaErstellen()
         Dim lngZeile As Long
         Dim chrDia As ChartObject
         Set chrDia = ActiveSheet.ChartObjects.Add(0, 0, 350, 200)
         With chrDia.Chart
             .ChartType = xlXYScatter
             For lngZeile = 10 To 200
                 With .SeriesCollection.NewSeries
                     .Name = "=" & ActiveSheet.Name & "!" & Cells(lngZeile, 1).Address
                     .X

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige