Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema " Datenbereich aus Diagramm"
Datenreihenbeschriftungs-Quellbereich ausserhalb des Datenbereiches Diagramm-Datenbereich über Schaltfläche festlegen
Datenbereich in zweiter Tabelle ohne Duplikate listen Diagramm in Userform
Export von Diagrammen im Grafikformat Diagramm aus Arbeitsblatt in Diagrammblatt übertragen
Balkendiagramm simulieren Diagramm aus Daten einer Bandbreite bilden
Diagramm-Datenreihen blinken lassen und Linie langsam zeichnen Diagramm exportieren und in Tabellenblatt importieren