AW: Datenquelle eines Diagramms...
Reinhard
Hi Norman,
kann die Zeilenumbrüche nicht nachvollziehen.
Gruß
Reinhard
Option Explicit
Sub test()
Dim s As String
s = "=SERIES(,Tabelle1!$A$1:$A$10,Tabelle1!$B$1:$B$10,1)"
Dim res As String
Dim resTable As String
res = GetAreaFromSeries(s, resTable)
Debug.Print res
If Len(res) > 0 Then
If Len(resTable) > 0 Then Sheets(resTable).Activate
Range(res).Activate
End If
End Sub
Function GetAreaFromSeries(s As String, ByRef resTable As String) As String
GetAreaFromSeries = ""
resTable = ""
Dim pos As Long
' Das erste Komma suchen
pos = InStr(s, ",")
If pos <= 0 Then Exit Function
' Jetzt das 2. Komma holen
pos = InStr(pos, s, ",")
If pos <= 0 Then Exit Function
' Ab pos + 1 ist der gesuchte Teil, jetzt brauchen wir auch noch das Ende
Dim endPos As Long
endPos = InStr(pos + 1, s, ",") ' Bitte hinter dem zuletzt gefundenen Komma anfange
If endPos <= 0 Then Exit Function
Dim res As String
' ok, jetzt haben wir alles
res = Mid(s, pos + 1, endPos - pos - 1)
' Wenn ein Ausrufezeichen im Ergebnis vorhanden ist, dann holen wir auch noch die Tabelle
pos = InStr(res, "!")
If pos > 1 Then
resTable = Left(res, pos - 1)
End If
' Wennns die Daten aus ner anderen Datei kommen hast Du allerdings ein Problem :)
GetAreaFromSeries = res
' Fertig
End Function