Hallo Daniel,
Am Mon, 30 Jun 2014 12:28:59 -0700 (PDT) schrieb
daniel.en...@gmail.com:
> Aber wie komme ich effizient an das "Daten!D4"? Per FORMELTEXT(A1)? BEREICH.VERSCHIEBEN hatte ich als Alternative bereits ins Auge gefasst, nur fehlt mir eben der Schritt aus der A1er Formel den Bezug zur weiteren Verwendung schick herauszuholen.
die Funktion Formeltext gibt es erst ab xl2013 und ist mir deswegen
unbekannt. Ich wei� nicht, was sie zur�ckgibt.
Wie ich schon schrieb, w�rde ich dieses Problem mit VBA l�sen.
F�r die Zellen A2:A10 w�rde das dann so funktionieren:
Sub MeineFormel()
Dim ShName As String
Dim Adr As Range
Dim i As Long
With ActiveSheet
With .Range("A1")
ShName = Mid(.Formula, 2, InStr(.Formula, "!") - 1)
Set Adr = Range(Replace(.Formula, ShName, ""))
End With
For i = 2 To 10
.Cells(i, 1).Formula = "=" & ShName & _
Cells(Adr.Row, Adr.Column + i - 1).Address(0, 0)
Next
End With
End Sub