Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
840to844
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
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datenquelle für SeriesCollection

Datenquelle für SeriesCollection
05.02.2007 10:52:12
matthias
Hallo,
ich suche nach einer Möglichkeit von einer SeriesCollection den Datenbereich, am Besten als Range, zu erhalten.
Also ActiveChart.SeriesCollection(1).Values = "=Tabelle1!R2C4:R2C5" invers, so daß ich "=Tabelle1!R2C4:R2C5" bzw. die Range davon als Ergebnis bekomme.
Vielen Dank.
Matthias

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datenquelle für SeriesCollection
05.02.2007 13:02:49
fcs
Hallo Mathias,
ein direkter Weg ist mir nicht eingefallen.
Man kann aber aus der Datenbereichsdefinition der Datenreihe den Wertebereich isolieren.
Gruß
Franz

Sub BereichCollectionValues()
Dim strBereich As String, rngBereich As Range
Dim Pos1 As Integer, Pos2 As Integer, strTrenn As String
strTrenn = "," 'Trennzeichen in Formeln bei Verwendung der Eigenschaft Formula
If ActiveSheet.Type = xlWorksheet Then
MsgBox "Makro muss von Diagramm aus gestratet werden!"
Exit Sub
End If
'Datenreiheninformation auslesen
strBereich = ActiveChart.SeriesCollection(1).Formula
'Tabelle und Datenbereich der Y-Werte heraustrennen
Pos2 = InStrRev(strBereich, strTrenn) - 1 'Position letztes Trennzeichen
Pos1 = InStrRev(strBereich, strTrenn, Pos2 - 1) 'Position vorletztes Trennzeichen
strBereich = Mid(strBereich, Pos1 + 1, Pos2 - Pos1)
'Rangeobjekt zuweisen
Set rngBereich = Worksheets(Left(strBereich, InStr(1, strBereich, "!") - 1)) _
.Range(Mid(strBereich, InStr(1, strBereich, "!") + 1))
'Y-Wertebereich selektieren
Worksheets(Left(strBereich, InStr(1, strBereich, "!") - 1)).Activate
rngBereich.Select
End Sub

Anzeige
Super. Danke!!!!!! o.T.
05.02.2007 13:23:50
matthias
.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige