Punktdiagramm mit MouseOver o.ä.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub DiagrammBeschriften() Dim loPunkt As Long With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1) .ApplyDataLabels For loPunkt = 1 To .Points.Count .Points(loPunkt).DataLabel.Text = Cells(loPunkt + 2, 4) ' + 2 hängt davon ab, ab _ welcher Zeile deine Daten für die Anzeige stehen (in meinem Testbeispiel ist es Zeile 3). Next loPunkt End With End Sub

Sub DiagrammBeschriften() Dim loPunkt As Long With Charts("Diagramm1").SeriesCollection(1) .ApplyDataLabels For loPunkt = 1 To .Points.Count .Points(loPunkt).DataLabel.Text = Worksheets("Tabelle1").Cells(loPunkt + 1, 6) Next loPunkt End With End Sub

Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y _ As Long) Dim ElementID As Long, Arg1 As Long, Arg2 As Long, inPunkt As Integer ActiveChart.GetChartElement x, y, ElementID, Arg1, Arg2 If ElementID = 3 Then With ActiveChart.SeriesCollection(1) .DataLabels.Delete .Points(Arg2).ApplyDataLabels .Points(Arg2).DataLabel.Text = Worksheets("Tabelle1").Cells(Arg2 + 1, 6) End With End If End Sub

Guten Abend, Karin.
Selbstverständlich ist mir bewusst, dass Anreden exisitieren und deren Verwendung auch den Formen der Höflichkeit entsprechen. Da ich jedoch nicht zwangsläufig einen Dialog führen möchte, sondern gerne auch anderen die Möglichkeit geben möchte, halte ich Anfragen lieber allgemein.
In Zukunft werde ich mich jedoch gerne bemühen, meine Fragen mit Hallo und Tschüß zu umschmücken.
Natürlich freut es mich, zu lesen, dass ich nicht an die Grenzen von Excel gestossen bin (vor allem, weil es in einem anderen Forum, wo ich schon vor etlichen Wochen anfragte, immer hieß "Geht nur mit nem Add-In" oder "Geht nicht"). In der Hoffnung, dass du oder auch jemand anders Zeit findet, sich dem aktuellen Problem anzunehmen, verbleibe ich mit herzlichem Dank.
Lorenz

Hi Lorenz,
wenn jemand antwortet und du gehst in deinem Beitrag auf diese Antwort ein, ergibt sich zwangsläufig ein Dialog. Das heißt jedoch nicht, dass sich nicht auch andere an der Lösung deines Problems beteiligen dürfen.

Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y  _
As Long)
Dim ElementID As Long, Arg1 As Long, Arg2 As Long, inPunkt As Integer, arrXWerte(),  _
arrYWerte()
ActiveChart.GetChartElement x, y, ElementID, Arg1, Arg2
If ElementID = 3 Then
With ActiveChart.SeriesCollection(1)
.DataLabels.Delete
.Points(Arg2).ApplyDataLabels
.Points(Arg2).DataLabel.Text = " "
arrYWerte() = .Values
arrXWerte() = .XValues
For inPunkt = 1 To .Points.Count
If Worksheets("Tabelle1").Cells(inPunkt + 1, 3) = arrXWerte(Arg2) And _
Worksheets("Tabelle1").Cells(inPunkt + 1, 5) = arrYWerte(Arg2) Then
.Points(Arg2).DataLabel.Text = .Points(Arg2).DataLabel.Text & " " &  _
Worksheets("Tabelle1").Cells(inPunkt + 1, 6)
End If
Next inPunkt
End With
End If
End Sub

Beliebteste Forumthreads (12 Monate)

Punktdiagramm mit MouseOver o.ä.

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Punktdiagramm mit MouseOver o.ä.

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread