Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1356to1360
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
XY Diagramm Punkte beschriften
28.04.2014 19:29:50
Tom
Hallo Excel-Experten,
habe in beiliegender Datei ein XY-Diagramm, bei dem die einzelnen Datenpunkte über ein Makro, das ich jedoch nicht selber geschrieben habe (dazu reicht mein Wissen leider nicht aus :-) ) automatisch beschriftet werden.
Allerdings habe ich das Problem, dass die Beschriftung immer auf Spalte A (Code) basiert.
Meine Frage: wie muss ich den VBA-Code abändern, damit die Beschriftung auf Spalte B (Bezeichnung) zugreift?
Zusatzfrage: Könnte mir jemand kurz den Code erklären, was bspw. mit p = 1 bzw.
sc.Points(p).DataLabel.Text = Cells(p + 2, 1) gesteuert wird?
Hier die Beispieldatei:
https://www.herber.de/bbs/user/90383.xlsm
Bin für eure Hilfe sehr dankbar!
LG
Tom

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: XY Diagramm Punkte beschriften
28.04.2014 19:40:51
Beverly
Hi Tom,
vielleicht helfen dir die folgenden Kommentare weiter:
Sub Datenpunkte()
Dim ch As Chart, sc As Series, p As Long
' Diagramm1 auf die Variable schreiben
Set ch = ActiveSheet.ChartObjects("Diagramm 1").Chart
' Datenreihe1 auf die Variable schreiben
Set sc = ch.SeriesCollection(1)
' Schleife über alle Datenpunkte der Datenreihe
For p = 1 To sc.Points.Count
' Beschriftung = Inhalt der Zelle(Zeile = Datenpunkt-Nr + 2, Spalte B)
sc.Points(p).DataLabel.Text = Cells(p + 2, 2)
Next
End Sub
Bei Cells(p + 2, 2) muss p + 2 verwendet werden, da die Datenpunktzählung bei 1 beginnt, deine erste Zelle jedoch in Zeile 3 steht.


Anzeige
AW: XY Diagramm Punkte beschriften
28.04.2014 19:45:42
Tom
Hallo Beverly,
perfekter geht's nicht! Jetzt versteh ich das auch :-).
Vielen Dank für die rasche Problemlösung und die perfekte Erklärung!
LG
Tom

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige