Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Marko zur Beschriftung eines xy-Diagramms
04.06.2009 10:17:08
Ingo4711
Hallo,
in dem Archiv habe ich ein gutes Makro zur Beschriftung der Datenpunkte gefunden:
https://www.herber.de/forum/archiv/740to744/t742616.htm
https://www.herber.de/bbs/user/31787.xls
Leider funktioniert das Makro nur mit drei Datenpunkten. Wenn man mehr Datenpunkte eingibt, kommt es zu einem Fehler. Kann dies an der Schleife und dem Wert j liegen?
With ActiveChart.SeriesCollection(1).Points(j - Startzeile + 1)
Viele Grüße
Ingo

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

Betreff
Datum
Anwender
Anzeige
AW: Marko zur Beschriftung eines xy-Diagramms
04.06.2009 10:49:19
Beverly
Hi Ingo,

Sub Datenbeschriftung()
Dim j As Integer
Dim Startzelle as String
Startzelle = InputBox("Adresse der Startzelle eingeben, z.B. A2")
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
.ApplyDataLabels
For j = 1 To .Points.Count
.Points(j).DataLabel.Text = Cells(Range(Startzelle).Row + j - 1, Range(Startzelle).  _
_
Column)
Next j
End With
End Sub




AW: Marko zur Beschriftung eines xy-Diagramms
04.06.2009 11:01:46
Ingo4711
Hallo Beverly,
herzlichen Dank!
Viele Grüße
Ingo
Anzeige

326 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige