Live-Forum - Die aktuellen Beiträge
Datum
Titel
02.12.2024 13:15:39
02.12.2024 12:41:41
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Datenbereich aus Diagramm

Datenbereich aus Diagramm
13.10.2003 14:07:54
Dieter
Hallo

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

mfg
dieter

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenbereich aus Diagramm
13.10.2003 16:20:45
Michael Noisternig
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...
AW: Datenbereich aus Diagramm
13.10.2003 16:36:52
ANdreas
Hallo Dieter & Michael,

mit Formula kann man das Auslesen:

MsgBox ActiveChart.SeriesCollection(1).Formula

Hoffe das hilft weiter,
Andreas
AW: Datenbereich aus Diagramm
13.10.2003 18:42:17
Thomas Risi
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

Anzeige
AW: Datenbereich aus Diagramm
14.10.2003 06:41:16
Danke an alle hat geklappt
Danke an alle hat geklappt

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige