Datenbereich aus Diagramm

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Datenbereich aus Diagramm
von: Dieter
Geschrieben am: 13.10.2003 14:07:54

Hallo

Kann mir jemand helfen, Ich möchte aus einem Diagramm(Chart) den Datenbereich auslesen.

mfg
dieter

Bild


Betrifft: AW: Datenbereich aus Diagramm
von: Michael Noisternig
Geschrieben am: 13.10.2003 16:20:45

Fürs erste:

Sub DatenbereichAuslesen()
Dim x As String
x = UBound(ActiveChart.SeriesCollection(1).Values)
MsgBox x
End Sub


Ich selbst bin beim Tüfteln, ich möchte nämlich den Datenbereich als Range zurückgeben (R1C1), bis jetzt nicht geschafft...


Bild


Betrifft: AW: Datenbereich aus Diagramm
von: ANdreas
Geschrieben am: 13.10.2003 16:36:52

Hallo Dieter & Michael,

mit Formula kann man das Auslesen:

MsgBox ActiveChart.SeriesCollection(1).Formula

Hoffe das hilft weiter,
Andreas


Bild


Betrifft: AW: Datenbereich aus Diagramm
von: Thomas Risi
Geschrieben am: 13.10.2003 18:42:17

Hallo

Versuch's mal so ;-)


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 LongAs Excel.Range
    
    On Error GoTo errorhandler
    
    Dim 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 LongAs Excel.Range
    
    On Error GoTo errorhandler
    
    Dim 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



     Code eingefügt mit Syntaxhighlighter 2.5


Gruß
Thomas

Risi Thomas Softwareentwicklung




Bild


Betrifft: AW: Datenbereich aus Diagramm
von: Danke an alle hat geklappt
Geschrieben am: 14.10.2003 06:41:16

Danke an alle hat geklappt


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Datenbereich aus Diagramm"