Erweiterung zu VBA Code

Guten Morgen,
in einem Diagramm werden Datenpunkte eingezeichnet. Durch Klicken mit der Maus auf einen Datenpunkt, wird ein Fenster mit der Nummer des Datenpunktes aufgerufen. Da die Punkte "nacheinander" in das Diagramm eingezeichnet werden, passt die Reihenfolge: d.h. der Datenpunkt mit der Nr. 1 wird auch in das Diagramm zuerst eingeszeichnet, es folgt Nr. 2 usw.
Wie muss ich unten stehenden Code abändern, damit ich für den Fall, dass die Spalte der einzelnen Datenpunkte nicht fortlaufend ist (z.B. 1,2,4,5,6...), dennoch die richtige Nr. im Diagramm angezeigt bekomme. Im Beispiel würde mir ein Datenpunkt mit der Nr. 3 angezeigt werden, der existiert aber gar nicht. Die Spalte mit den Datenpunkten ist weiterhin in einer aufsteigenden (2,3,4,8,9...) Reihenfolge.
Danke & einen schönen Tag
Claudia

Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y  _
As Long)
Dim lngPoint As Long
Dim L As Long
Dim ID As Long
Dim myChart As Chart
Set myChart = Me
If Button = 1 Then 'Linksclick
myChart.GetChartElement x, y, ID, L, lngPoint
If ID = xlSeries Then 'Schauen was selectiert ist
MsgBox "City Pair Number " & lngPoint
End If
End If
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Karin,
vielen dank für die Antwort. Etwas klarer:
Spalte A: Fortlaufende Zahlen (z.B. 1,3,4,5,9 ...) als Nummerierung der Datenpunkte
Spalte B: Punkte für die x-Achse
Spalte C: Punkte für die y-Achse
Daten der Spalten B und C werden in einem Diagramm als Datenpunkte dargestellt. Jeder Datenpunkt hat im Arbeitsblatt jedoch eine Nummer (Spalte A). Wenn diese ohne Unterbrechung(!) fortlaufend ist, zeigt das Makro die richtige Nummer (Spalte A) für jeden Datenpunkt an (Spalte B/C).
Mit Unterbrechung kommt es jedoch zu Schwierigkeiten (im Beispiel oben existiert in Spalte A gar kein Datenpunkt mit der Nummer 2, im Diagramm beim Klicken wird er jedoch angezeigt).
Besser verständlich? Danke!
Claudia

Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, _ ByVal x As Long, ByVal y As Long) Dim lngPoint As Long Dim L As Long Dim ID As Long Dim strFormel As String Dim myChart As Chart Set myChart = Me If Button = 1 Then 'Linksclick myChart.GetChartElement x, y, ID, L, lngPoint If ID = xlSeries Then 'Schauen was selectiert ist strFormel = Split(myChart.SeriesCollection(L).Formula, ",")(1) MsgBox "City Pair Number " & _ Worksheets("Tabelle1").Range(strFormel).Cells(lngPoint, 1).Offset(0, -1) End If End If End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread