ActiveChart.SeriesCollection(1).Points(896).Select
wenn das geht, dann müsste es doch auch andersrum funktionieren, oder? ich hätte gern sowas wie
selection.PointNumber
o.ä.
kann mir da jmd helfen ? wäre super, vielen dank schonmal.
Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Dim IDNum As Long, a As Long, b As Long
Charts(1).GetChartElement x, y, IDNum, a, b
If b = 0 Then Exit Sub
MsgBox "Datenpunkt " & b
End Sub