Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1448to1452
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Diagramm Datenbeschriftung

Diagramm Datenbeschriftung
05.10.2015 11: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

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

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


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

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


AW: Diagramm Datenbeschriftung
05.10.2015 21: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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige