X-Y Diagramm Datenpunkt Zellbezug auslesen
Christian
gibt es in VBA eine Möglichkeit, von einem Datenpunkt den Verweis auf den zugehörigen Zellbereich z.B. des X-Wertes zu ermitteln? Das ermitteln des XWertes selbst funktioniert ganz gut (siehe Listing).
Ich bräuchte aber den Verweis des zugehörigen XWertes, also in etwas sowas wie:
"=Tabelle1!A4"
Kann mir jemand weiterhelfen?
Danke und Gruss
Christian
---------------------------------------------------------
Sub Punkt_auslesen()
Dim i, actSerie, DArray, vReihe, vPunkt As Variant
Dim strReihe As String
Dim Serie As Series
Dim Punkt As Point
ActiveWorkbook.Sheets("Diagramm1").Select
strReihe = CStr(InputBox("Bitte Reihennamen eingeben: "))
vPunkt = InputBox("Bitte Punktnummer eingeben: ")
actSerie = 0
For Each Serie In ActiveChart.SeriesCollection
actSerie = actSerie + 1
If Serie.Name = strReihe Then
With ActiveChart.SeriesCollection(actSerie)
DArray = .XValues
For Each Punkt In .Points
i = i + 1
MsgBox DArray(i)
If CStr((DArray(i))) = CStr(vPunkt) Then
MsgBox "Punkt gefunden!"
Punkt.Select
Exit Sub
End If
Next
End With
End If
Next
End Sub