Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Diagramm Datenbeschriftung

Forumthread: Diagramm Datenbeschriftung

Diagramm Datenbeschriftung
05.10.2015 13:24:22
Luca
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

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Diagramm Datenbeschriftung
05.10.2015 13:35:20
Beverly
Hi Luca,
versuche es so: "=" & Daten


AW: Diagramm Datenbeschriftung
05.10.2015 13:47:03
Luca
Hallo Beverly
funktioniert leider nicht, es kommt der Fehler "Typen unverträglich"

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


Anzeige
AW: Diagramm Datenbeschriftung
05.10.2015 23:14:21
Beverly
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  '


Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige