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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen