Sub DatenbereichAuslesen()
Dim x As String
x = UBound(ActiveChart.SeriesCollection(1).Values)
MsgBox x
End Sub
Option Explicit
Private Sub CommandButton1_Click()
Dim x_Range As Excel.Range
Set x_Range = GetXRange(ActiveSheet.ChartObjects(1).Chart, 1)
MsgBox x_Range.Address
End Sub
' scIndex = Index der SeriesCollection
' xlChart = Das Chart-Object
'
Private Function GetXRange(xlChart As Excel.Chart, scIndex As Long) As Excel.Range
On Error GoTo errorhandler
Dim a As Variant, b As Variant
a = Split(xlChart.SeriesCollection(scIndex).Formula, ",")
b = Split(a(2), "!")
Set GetXRange = ThisWorkbook.Worksheets(b(0)).Range(b(1))
Exit Function
errorhandler:
Set GetXRange = Nothing
End Function
' scIndex = Index der SeriesCollection
' xlChart = Das Chart-Object
'
Private Function GetYRange(xlChart As Excel.Chart, scIndex As Long) As Excel.Range
On Error GoTo errorhandler
Dim a As Variant, b As Variant
a = Split(xlChart.SeriesCollection(scIndex).Formula, ",")
b = Split(a(1), "!")
Set GetYRange = ThisWorkbook.Worksheets(b(0)).Range(b(1))
Exit Function
errorhandler:
Set GetYRange = Nothing
End Function