Diagramm Datenbeschriftung

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Frame Label InputBox
Bild

Betrifft: Diagramm Datenbeschriftung
von: Luca Meier
Geschrieben am: 05.10.2015 11:24:22

Hallo zusammen
ich erstelle momentan ein Makro bei welchem ein Diagramm erstellt wird. Nun sollen die Daten beschriftet werden und zwar mit den Daten aus einer Variablen bzw.einer Range Variablen. Konkret sieht dies so aus: (vereinfacht)

Set Daten = Application.InputBox(Prompt:="Bitte Zellen für Beschriftung auswählen:", Title:="Diagramm erstellen", Type:=8)

-> Definieren der Range
With ActiveChart
.SetElement (msoElementDataLabelCenter)
.SeriesCollection(3).DataLabels.Format.TextFrame2.TextRange. _
        InsertChartField msoChartFieldRange, "=Daten", 0

Mit dem Makrorecorder wird dort wo jetzt "=Daten" steht der Zellbezug also bspw. "=A1:A3" angegeben, nun möchte ich aber, dass es die Werte die am Anfang gewählt werden als Bezug nimmt, wie geht das?
Danke und Gruss

Bild

Betrifft: AW: Diagramm Datenbeschriftung
von: Beverly
Geschrieben am: 05.10.2015 11:35:20
Hi Luca,
versuche es so: "=" & Daten




Bild

Betrifft: AW: Diagramm Datenbeschriftung
von: Luca Meier
Geschrieben am: 05.10.2015 11:47:03
Hallo Beverly
funktioniert leider nicht, es kommt der Fehler "Typen unverträglich"

Bild

Betrifft: AW: Diagramm Datenbeschriftung
von: Beverly
Geschrieben am: 05.10.2015 12:20:26
Hi Luca,
lade doch mal deine Mappe hoch, damit man am Original testen kann.




Bild

Betrifft: AW: Diagramm Datenbeschriftung
von: Beverly
Geschrieben am: 05.10.2015 21:14:21
Hi,
so sollte es fuktionieren:

    Set Daten = Application.InputBox(Prompt:="Bitte Zellen für Beschriftung auswählen:", Title:= _
"Diagramm erstellen", Type:=8)
    With ActiveSheet.ChartObjects(1).Chart
        .SetElement (msoElementDataLabelCenter)
        .SeriesCollection(3).DataLabels.Format.TextFrame2.TextRange. _
            InsertChartField msoChartFieldRange, "=Tabelle1!" & _
            Daten.Address, 0  '<== Tabellenname anpassen
        .SeriesCollection(3).DataLabels.ShowRange = True
        .SeriesCollection(3).DataLabels.ShowValue = False
    End With



 Bild

Beiträge aus den Excel-Beispielen zum Thema "Diagramm Datenbeschriftung"