Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gestapelte Säulen, Datenbeschriftung außerhalb

Forumthread: gestapelte Säulen, Datenbeschriftung außerhalb

gestapelte Säulen, Datenbeschriftung außerhalb
22.08.2014 11:10:50
Andreas
Guten Morgen miteinander.
ich hoffe, wie schon sehr oft in diesem Forum, auf Eure Hilfe, auch wenn ich diesmal glaube, dass es keinen Lösung gibt. Aber die Hoffnung stirbt bekanntlich zuletzt.
Ich habe sehr viele Diagramme (mehr als 50 Stk) mit gestapelte Säulen. Dabei ist die Datenbeschriftung innerhalb der Säulen. Wegen den verwendeten Farben sind die Beschriftungen manchmal nicht gut lesbar. Die Schriftfarbe schwarz sollte überall beibehalten werden. Daher würde ich gern die Datenbeschriftung neben die Säulen ziehen. Das funktioniert sehr gut für einzelne Beschriftungsfelder. Nun würde ich aber gern a) automatisch oder b) wenigstens für ganz Datenreihen die Verschiebung vornehmen.
Nach einiger Recherche habe ich rausgefunden, dass das wohl für Excel 2007 praktisch nicht geht, aber ich habe seit neustem auch Excel 2010 und hoffe dass es inzwischen vielleicht klappt.
Denkbar wäre auch, dass man vor die Datenbeschriftung einige Leerzeichen einfügt, sodass dann der eigentliche Beschriftungstext neben die Säulen rutscht, aber auch das habe ich nicht gefunden, ob und wie das geht.
Vielleicht habt Ihr eine Idee. Ich wäre euch sehr, sehr dankbar wenn ihr eine Lösung für mich parat hättet.
Danke schon einmal vorab!
Andreas

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: gestapelte Säulen, Datenbeschriftung außerhalb
22.08.2014 11:23:53
Andreas
Huhu.
absolutes Novum: ich hab mir selbst geholfen. Bei der Datenbeschriftungsformatierung gibt man einfach mit Gänsefüßchen vorher die Anzahl der Leerzeichen ein. z.B.: " "#.##0,0
Nicht sehr elegant aber pragmatisch.
Nun hoffe ich somit auch an das Forum etwas zurückzugeben, wenn das jemand mit dem gleichen Problem liest.
Andreas

Anzeige
AW: gestapelte Säulen, Datenbeschriftung außerhalb
22.08.2014 11:31:18
Daniel
Hi
probiere mal für die Datenreihen:
- Datenbeschriftungen formatieren - Zahl - Benutzerdefiniert
hier dann im Formatcode Leerzeichen vor den Zahlensymbolen einfügen, "Hinzufügen" klicken und auswählen
Gruß Daniel

AW: gestapelte Säulen, Datenbeschriftung außerhalb
22.08.2014 11:49:47
Andreas
Hi Daniel,
vielen Dank für Deine Antwort.
Ich hab mir soeben selbst helfen können und grad die Lösung auch gepostet. Aber sehr gut zu Wissen, dass auf deine Hilfe zu zählen war. Ich hoffe deine Mühe nicht zu sehr beansprucht zu haben. Ich hab erst wirklich nicht gewusst wie es geht und nach dem ich die Frage im Forum gestellt habe, habe ich nochmal einfach probiert. Das Glück des Dummen hat mir dabei in die Hände gespielt.

Anzeige
AW: gestapelte Säulen, Datenbeschriftung außerhalb
22.08.2014 17:55:11
Beverly
Hi Andreas,
auch in Excel2010 lassen sich die Beschriftungslabel nicht komplett für eine gesamte Datenriehe verschieben.
Allerdings kannst du es mit folgendem Makro für jeden Datenpunkt machen:
Sub beschriftungslabel_verschieben()
Dim inReihen As Integer
Dim inPunkte As Integer
With ActiveSheet.ChartObjects(1).Chart
For inReihen = 1 To .SeriesCollection.Count
With .SeriesCollection(inReihen)
For inPunkte = 1 To .Points.Count
.Points(inPunkte).DataLabel.Left = .Points(inPunkte).DataLabel.Left - 10
Next inPunkte
End With
Next inReihen
End With
End Sub

Anzeige
AW: gestapelte Säulen, Datenbeschriftung außerhalb
25.08.2014 13:29:42
Andreas
Hallo Beverly,
entschuldige, ich habe erst eben deine Antwort gesehen.
Das wäre ja so cool wenn das klappen würde.
Allerdings kommt bei mir eine Fehlermeldung und der Debugger sagt für folgende Zeile:
.Points(inPunkte).DataLabel.Left = .Points(inPunkte).DataLabel.Left - 10
Ich habe folgendes gemacht. Makro eingerichtet, dann des Diagramm angeklickt (ist bei mir frei beweglich in einer Tabellenblatt (also nicht ein eignes Tabellenblatt mit nur dem Diagramm) und dann das Makro ausgeführt. Ich hab auch mal nur eine Datenbeschriftungsreihe und eine Datenreihe im Diagramm und einen einzelnen Beschriftungswert vor dem Ausführen des Makros angeklickt. in allen Fällen kommt an dieser Stelle die Fehlermeldung. Hast du eine Ahnung, was ich noch falsch mache?
Danke, danke. Ich hoffe ganz sehr wir bekommen das hin :)
Andreas

Anzeige
AW: gestapelte Säulen, Datenbeschriftung außerhalb
25.08.2014 13:38:42
Andreas
Die Fehlermeldung ist übrigens: Die Methode'Left' für das Objekt 'DataLabel'ist fehlgeschlagen

AW: gestapelte Säulen, Datenbeschriftung außerhalb
25.08.2014 14:04:55
Beverly
Hi Andreas,
kann ich leider nicht nachvollziehen - bei mir kommt kein Fehler (sonst hätte ich den Code nicht gepostet).

Die Datei https://www.herber.de/bbs/user/92278.xlsm wurde aus Datenschutzgründen gelöscht



Anzeige
AW: gestapelte Säulen, Datenbeschriftung außerhalb
26.08.2014 07:10:26
Andreas
Hi Beverly,
also deins klappt schonmal super. ich muss mal auf suche gehen woran es liegt, aber ich bin mir einigermaßen sicher, dass ich das hinbekomme. Danke an dieser Stelle schoneinmal. Wirklich ein sehr hilfreiches Makro.
Ein kleines Problem hab ich nun doch noch: Wenn ich zwei Diagramme in dem Tabellenblatt habe (s. Anhang), verschiebt er mir immer nur von dem ersten die Beschriftungen, obwohl ich z.b. das zweite angeklickt habe.
Wenn du hier noch eine Lösung weißt bin ich glücklich.
Dankesehr, Andreas
https://www.herber.de/bbs/user/92295.xlsm

Anzeige
AW: gestapelte Säulen, Datenbeschriftung außerhalb
26.08.2014 07:39:04
Beverly
Hi Andreas,
der Code berücksichtigt nur das zuerst im Tabellenblatt erstellte Diagramm. Es stellt sich nun die Frage: soll der Code sofort für alle im Tabellenblatt enhalten Diagramme ausgeführt werden oder immer nur für dasjenige, welches mit dem Cursor markiert wurde?

Anzeige
AW: gestapelte Säulen, Datenbeschriftung außerhalb
26.08.2014 08:59:05
Andreas
Hallo Beverly,
super (und DANK!), dass du schon gleich geantwortet hast. Das Makro läuft bei mir jetzt ohne Fehlermeldung. Genau kann ich es nicht erklären, aber ich hab einmalig ein Diagramm angeklickt und danach ging es ... also alles wunderbar.
Da die Beschriftungen je nach Diagramm unterschiedlich weit verschoben werden sollen, wäre absolut klasse, wenn ich ein Diagramm anklicken könnte und nur für dieses Diagramm die Beschriftungsverschiebung durchführen könnte.
Und ich hoffe ich beanspruche deine Geduld nicht zu sehr (weil ich glaube dass ich das mit bisschen probieren sogar selbst hinbekommen würde): Wenn die Verschiebungsparameter dann noch in Zellen stehen würden (bspw. unter dem Button "Schaltfläche1", wäre das der Hammer. Ich glaube auch, dass du dann nicht nur mir einen riesen Gefallen machen würdest.
Über eine Antwort würde ich mich nochmal sehr freuen!
ein großes Danke, Andreas.

Anzeige
AW: gestapelte Säulen, Datenbeschriftung außerhalb
26.08.2014 09:25:18
Beverly
Hi Andreas,
schreibe die Verschiebung z.B. in E5 (bei negativer Verschiebung als negative Zahl)
Sub beschriftungslabel_verschieben()
Dim inReihen As Integer
Dim inPunkte As Integer
If TypeName(Selection)  "ChartArea" Then
MsgBox "Bitte die Diagrammfläche markieren"
Else
With Selection.Parent
For inReihen = 1 To .SeriesCollection.Count
With .SeriesCollection(inReihen)
For inPunkte = 1 To .Points.Count
.Points(inPunkte).DataLabel.Left = _
.Points(inPunkte).DataLabel.Left + Range("E5")
Next inPunkte
End With
Next inReihen
End With
End If
End Sub
Betreffende Diagrammfläche muss aktiviert sein.

Anzeige
AW: gestapelte Säulen, Datenbeschriftung außerhalb
26.08.2014 10:29:57
Andreas
Beverly, das ist WAHNSINN!!!
Genau so hab ich es mir erhofft. Toll! Zum einen hast du mir damit viel Arbeit erspart. Aber das Tool ist vorallem auch sehr viel exakter, als wenn man die Beschriftungen einzeln verschieben muss und sehr viel robuster (gegenüber z.B. späteren Größenänderungen des Diagramm) als meine vorherige Methode mit den Leerzeichen vor dem Beschriftungstext.
ganz großes Dankeschön Dir und diesem Forum
Andreas
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Datenbeschriftung außerhalb bei gestapelten Säulendiagrammen in Excel

Schritt-für-Schritt-Anleitung

  1. Diagramm erstellen: Erstelle ein gestapeltes Säulendiagramm in Excel.
  2. Datenbeschriftung hinzufügen: Klicke auf das Diagramm und wähle die gewünschte Datenreihe aus. Gehe zu „Diagramm-Elemente“ und aktiviere „Datenbeschriftungen“.
  3. Datenbeschriftung formatieren: Klicke mit der rechten Maustaste auf die Datenbeschriftungen und wähle „Datenbeschriftungen formatieren“.
  4. Leerzeichen hinzufügen: Füge im Feld „Zahlen“ einige Leerzeichen vor dem Formatcode hinzu, z.B. " "#.##0,0. Dies verschiebt die Datenbeschriftungen nach außen.
  5. Makro verwenden: Wenn Du die Datenbeschriftungen für mehrere Punkte gleichzeitig verschieben möchtest, kannst Du das folgende Makro verwenden: 
    Sub beschriftungslabel_verschieben()
   Dim inReihen As Integer
   Dim inPunkte As Integer
   With ActiveSheet.ChartObjects(1).Chart
       For inReihen = 1 To .SeriesCollection.Count
           With .SeriesCollection(inReihen)
               For inPunkte = 1 To .Points.Count
                   .Points(inPunkte).DataLabel.Left = .Points(inPunkte).DataLabel.Left - 10
               Next inPunkte
           End With
       Next inReihen
   End With
End Sub
  6. Verschiebung anpassen: Du kannst die Verschiebung im Makro anpassen, indem Du den Wert von -10 veränderst.

Häufige Fehler und Lösungen

  • Fehlermeldung beim Ausführen des Makros: Wenn du die Fehlermeldung „Die Methode 'Left' für das Objekt 'DataLabel' ist fehlgeschlagen“ erhältst, stelle sicher, dass Du ein gültiges Diagramm ausgewählt hast.
  • Datenbeschriftung verschiebt sich nicht: Überprüfe, ob du die Diagrammfläche markiert hast, bevor du das Makro ausführst.
  • Datenbeschriftung für mehrere Diagramme: Das Standard-Makro verschiebt nur die Beschriftungen des ersten Diagramms. Um dies zu ändern, musst du den Code anpassen, um die aktuell ausgewählte Diagrammfläche zu berücksichtigen.

Alternative Methoden

  • Manuelle Anpassung: Du kannst die Datenbeschriftungen auch manuell verschieben, indem Du sie einfach mit der Maus anklickst und ziehst.
  • Formatierung über Benutzerdefiniert: Gehe zu „Datenbeschriftungen formatieren“ > „Zahlen“ > „Benutzerdefiniert“ und füge Leerzeichen vor den Zahlen hinzu.
  • Excel Diagramm achsenbeschriftung verschieben: Um die Achsenbeschriftungen zu verschieben, gehe zu „Achsentitel“ und wähle die gewünschte Position.

Praktische Beispiele

  • Projektfortschritt darstellen: Erstelle ein gestapeltes Säulendiagramm, um den Fortschritt verschiedener Projektphasen darzustellen. Verwende die oben genannten Schritte zur Positionierung der Datenbeschriftung außerhalb der Säulen.
  • Umsatzvergleich: Nutze ein Excel Balkendiagramm mit Datenbeschriftungen außerhalb, um die Umsätze verschiedener Produkte zu vergleichen.

Tipps für Profis

  • Verschiebung dynamisch gestalten: Du kannst die Verschiebung der Datenbeschriftungen dynamisch gestalten, indem Du den Wert in einer Zelle (z.B. E5) hinterlegst und diesen im Makro referenzierst.
  • Makros sichern: Stelle sicher, dass Du Deine Makros in einer Arbeitsmappe speicherst, die Makros unterstützt, um zukünftige Probleme zu vermeiden.
  • PowerPoint Integration: Wenn Du Diagramme in PowerPoint verwenden möchtest, achte darauf, die Datenbeschriftungen auch dort korrekt zu positionieren, um eine konsistente Präsentation zu gewährleisten.

FAQ: Häufige Fragen

1. Wie kann ich die Datenbeschriftung außerhalb eines Excel Diagramms positionieren?
Du kannst Leerzeichen im Formatcode der Datenbeschriftung hinzufügen oder ein Makro verwenden, um die Beschriftungen zu verschieben.

2. Was tun, wenn die Datenbeschriftung am Ende außerhalb fehlt?
Stelle sicher, dass die Datenreihe korrekt ausgewählt ist und überprüfe die Formatierung der Datenbeschriftungen.

3. Funktioniert das auch in älteren Excel-Versionen?
Die beschriebenen Methoden sind hauptsächlich für Excel 2010 und später geeignet. In Excel 2007 kann es Einschränkungen geben.

4. Kann ich die Datenbeschriftungen in einem Excel Kreisdiagramm auch außerhalb positionieren?
Ja, auch bei einem Excel Kreisdiagramm kannst Du die Datenbeschriftungen außerhalb positionieren, indem Du die gleichen Techniken anwendest.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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