Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

dynamisches Diagramm - Beschriftung aus anderer Spalte
#1
Hallo,

ich versuche gerade zu einem einfachen Liniendiagramm die Beschriftung aus einer anderen Spalte zu ziehen als der eigentliche Wert.

Bsp:
Datum  Wert Kategrorie
01.01.2017   331   B
02.01.2017   511   B
03.01.2017   199   C
04.01.2017   929   A
usw.

Also Datum steht auf der x-Achse und z.B. beim Wert 331 (y-Achse) soll nicht der Wert stehen, sondern die Kategorie "B".

Unter folgendem Link habe ich gesehen, wie man das bei einem statischen Diagramm machen kann:
http://www.herber.de/bbs/user/68644.xls

Allerdings ist die Datum-Spalte bzw. die Anzahl der Zeilen bei mir dynamisch und dann klappt das nicht mehr.

Jemand von euch eine Idee, wie ich das machen kann?
Antworten Top
#2
Hola,

hier hat jemand ein ähnliches Problem:

http://ms-office-forum.net/forum/showthr...p?t=343177

Gruß,
steve1da
Antworten Top
#3
Hallöchen,

da das Problem anderswo nicht gelöst ist, hier mal mein Ansatz. Ich nehme an, dass Textbeschriftungen der Datenpunkte manuell durch setzen einer Formel - analog der Formelzuweisung normaler TextBoxen - erzeugt wurden.

Im Prinzip geht das automatisch nur mit einem Makro, hier mal für die erste Datenreihe eines Säulendiagramms mit den "Bezeichnungen" ab Zelle C2

Code:
Sub Makro1()
 ActiveSheet.ChartObjects("Diagramm 1").Activate
 With ActiveChart.FullSeriesCollection(1)
   For icnt = 1 To .Points.Count
     ActiveChart.FullSeriesCollection(1).Points(icnt).DataLabel.Formula = "=Übersicht!R" & 1 + icnt & "C3"
   Next
 End With
End Sub

Man müsste dann nur schauen, wie man das Makro auslöst.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste