Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Von Diagramm den Zellbezug der y-Werte auslesen

Von Diagramm den Zellbezug der y-Werte auslesen
JensF
Hallo Leute,
ich möchte die Adresse der y-Werte eine sDiagramms auslesen.
Wenn ich die Adresse festlege offenbart der Makrorekorder folgendes:
ActiveChart.SeriesCollection(1).Values = "='Daten'!$P$5:$AJ$5"
Wenn ich jetzt aber andersherum die Adresse auslesen will, geht das nicht, denn dann gibt die Values-Eigenschaft nicht die Adresse zurück sondern ein Array mit den Werten
Feld = ActiveChart.SeriesCollection(1).Values
msgbox Feld(1) ' meldet den ersten Wert der Datenreihe
Ist ja auch schön, aber ich möchte die Adresse "='Daten'!$P$5:$AJ$5"
auslesen.
Weiß jemand wie das geht?
Viele Grüße
Jens

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Von Diagramm den Zellbezug der y-Werte auslesen
12.05.2011 18:25:35
Beverly
Hi Jens,
Sub Wertebereich()
Dim strFormel As String
Dim strXWerte As String
Dim strYWerte As String
strFormel = Mid(ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Formula, _
InStr(ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Formula, ",") + 1)
strXWerte = Left(strFormel, InStr(strFormel, ",") - 1)
strYWerte = Application.Substitute(strFormel, strXWerte & ",", "")
strYWerte = Left(strYWerte, InStrRev(strYWerte, ",") - 1)
MsgBox "X-Wertebereich " & strXWerte & vbLf & _
"Y-Wertebereich " & strYWerte
End Sub



Anzeige
AW: Von Diagramm den Zellbezug der y-Werte auslesen
12.05.2011 18:33:39
Nepumuk
Hallo,
so?
MsgBox Split(Split(Tabelle1.ChartObjects(1).Chart.SeriesCollection(1).Formula, ",")(1), "]")(1)

Gruß
Nepumuk
AW: Von Diagramm den Zellbezug der y-Werte auslesen
12.05.2011 21:17:23
JensF
Hi,
und danke Euch beiden.
auf .Formula bin ich schon nicht gekommen, hab wohl auf dem Schlauch gestanden.
Aber wozu der "Doppelsplit", bei mir gings jetzt so:
MsgBox Split(Tabelle1.ChartObjects(1).Chart.SeriesCollection(1).Formula, ",")(2)
Aber ist ja Wurst.
Viele Grüße
Jens
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige