Excel Datenbeschriftung Diagramm

  • Hallo


    Ich habe ein Problem mit der Datenbeschriftung in einem Diagramm.
    Folgender Aufbau:


    Ich habe drei Spalten, in der A Spalte befinden sich die Bezeichnungen, in der B-Spalte die X-Koordinaten und in der C-Spalte die Y-Koordinaten


    Als Punktdiagramm konzipiert funktioniert das noch alles. Mit der Beschriftung fängt das Problem dann erst an.
    Möglichkeiten: Reihennamen; X-Wert; Y-Wert


    Geb ich jetzt im Reihennamen die Spalte A an, findet sich im Diagramm die gesamte A-Spalte bei jeder Koordinate wieder. Somit ist das ganze Diagramm vor lauter Bezeichnungen nicht mehr lesbar.


    Ich brauche ja nur pro Punkt eine Bezeichnung.
    Hat da jemand eine Ahnung, wie das in der Version 2007 funktionieren kann?


    Vielen Dank


    mfg
    IBademeisterI

  • Das Punktdiagramm ist zweidimensional ("Y-Werte sind nur von einer Variable abhängig"), Du hast aber zwei Variablen (Spalten B und C), deshalb brauchst Du ein dreidimensionales Diagramm. Oberfläche zB.


    Was für Beschriftungen sind das denn und was für Werte in den Spalten?
    Wenn keine Berechnung erfolgt, ist jede Spalte mit Werten eine Reihe.

  • Nein es soll schon ein zweidimensionales Diagramm sein. Die Beschriftungen sowie die Werte der anderen Spalten sind alles Zahlenwerte. Hab jetzt folgendes VBA Programm gefunden. Damit gehts zwar - ist aber halt ziemlich umständlich:



    Sub DatenbeschriftungAusZellen()
    Dim Datenreihe As Series
    Dim Punkte As Points
    Dim Punkt As Point
    Dim i As Integer
    Set Datenreihe = ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
    Datenreihe.HasDataLabels = True
    Set Punkte = Datenreihe.Points
    'Startwert für Datenbeschriftung (Spalte A)
    Range("A1").Select
    For Each Punkt In Punkte
    i = i + 1
    On Error Resume Next
    'Erzeugt Beschriftung aus 1 Zelle
    Punkt.DataLabel.Text = ActiveCell.Offset(i, 0).Value
    Punkt.DataLabel.Font.Bold = True
    On Error GoTo 0
    Next Punkt
    End Sub



    Sub DatenbeschriftungLöschen()
    ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).HasDataLabels = False
    End Sub ♦

Jetzt mitmachen!

Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!