Zellbezug aus Zellformel (Zellverweis) herstellen

Hallo.
Im Moment versuche ich einen Zellbezug über eine Zellformel zu erstellen, was irgendwo hakt. Mit den Zellen auf die dadurch verwiesen wird möchte ich arbeiten.
Beispiel:
In einer Zelle verweise ich auf eine andere Zelle in der Excel-Datei (=Tabelle2!D3). Nun möchte ich das dort genannte Ziel als Startbereich nehmen und mittels VBA auswerten. Dazu müsste ich das Zielworksheet, Zeile und Spalte ermitteln können.
Da es sich auch um einen benannnten Bereich handeln kann, gestaltet sich herauszufinden wo das Ziel ist allerdings schwieriger.
Gibt es einen Befehl der mir sagen kann, wo mein Ziel liegt? Quasi ein Befehl, der mir den Nachfolger, also die Adresse des Nachfolgers nennt? Etwas wie Selection.Sucessor?
Oder wie könnte ich den Nachfolger auswählen? Mit Range("Tabelle!D3").Select funktioniert das nicht.
Besten Dank für eine Lösung.
-Arthur

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test() Dim Zelle As String Zelle = Replace$(ActiveCell.Formula, "=", "") If InStr(Zelle, "!") > 0 Then Sheets(Left$(Zelle, InStr(Zelle, "!") - 1)).Select Range(Right$(Zelle, Len(Zelle) - InStr(Zelle, "!"))).Select Else Range(Zelle).Select End If End Sub

Sub tt() Dim rTest As Range, vntTest Set rTest = ActiveCell vntTest = Split(rTest.FormulaLocal, "!") If UBound(vntTest) = 0 Then vntTest = Split(ThisWorkbook.Names(Replace(rTest.FormulaLocal, "=", "")) _ .RefersToLocal, "!") End If Sheets(Replace(vntTest(0), "=", "")).Activate Range(vntTest(1)).Select End Sub

Hallo,
Verbesserung:


Sub tt()
Dim rngTest As Range
Set rngTest = RangeFromFormula(ActiveCell.FormulaLocal)
'   MsgBox rngTest.Parent.Name
'   MsgBox rngTest.Address
rngTest.Parent.Activate
rngTest.Select
End Sub


Function RangeFromFormula(strFormula As String) As Range
Dim vntTest, nTest As Name
Dim strSheet As String, strRange As String
On Error Resume Next
Set nTest = ThisWorkbook.Names(Replace(strFormula, "=", ""))
On Error GoTo 0
If nTest Is Nothing Then
vntTest = Split(strFormula, "!")
If UBound(vntTest) = 0 Then
strSheet = ActiveSheet.Name
strRange = Replace(vntTest(0), "=", "")
Else
strSheet = Replace(vntTest(0), "=", "")
strRange = vntTest(1)
End If
Else
vntTest = Split(nTest.RefersToLocal, "!")
strSheet = Replace(vntTest(0), "=", "")
strRange = vntTest(1)
End If
Set RangeFromFormula = Sheets(strSheet).Range(strRange)
End Function

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Beliebteste Forumthreads (12 Monate)

Zellbezug aus Zellformel (Zellverweis) herstellen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread