Sheet-Variable in Berechnungsformel
 

Hallo

Ich habe folgendes Problem:

Ich habe der Tabelle_xy die Variable "Daten1" zugewiesen

(Dim Daten1 As Worksheet
Set Daten1 = ActiveSheet)

Eine Formel, die von einem anderen Sheet auf Tabelle_xy (bzw.Daten1)
zugreifen soll
sieht folgendermaßen aus:

Range("A3").FormulaR1C1 = "='Tabelle_xy'!R[-2]C"

Wie kann ich "Tabellexy" in dieser Formel durch die Variabel "Daten1"
ersetzen, so dass die Formel funktioniert?

Sheet-Variable in Berechnungsformel
 

Hi Mazo,

My German is week, but perhaps you request this solution:

Range("A3").FormulaR1C1 = "=" & Daten1 & "!R[-2]C"

Regards,
Stefi

€žmazo€� ezt Ã*rta:

Hallo

Ich habe folgendes Problem:

Ich habe der Tabelle_xy die Variable "Daten1" zugewiesen

(Dim Daten1 As Worksheet
Set Daten1 = ActiveSheet)

Eine Formel, die von einem anderen Sheet auf Tabelle_xy (bzw.Daten1)
zugreifen soll
sieht folgendermaßen aus:

Range("A3").FormulaR1C1 = "='Tabelle_xy'!R[-2]C"

Wie kann ich "Tabellexy" in dieser Formel durch die Variabel "Daten1"
ersetzen, so dass die Formel funktioniert?

Sheet-Variable in Berechnungsformel
 

wouldn't it be

Range("A3").FormulaR1C1 = "='" & Daten1.Name & "'!R[-2]C"

Since daten1 is dimmed as worksheet which doesn't appear to have a default
value.

--
Regards,
Tom Ogilvy


"Stefi" wrote:

Hi Mazo,

My German is week, but perhaps you request this solution:

Range("A3").FormulaR1C1 = "=" & Daten1 & "!R[-2]C"

Regards,
Stefi

€žmazo€� ezt Ã*rta:

Hallo

Ich habe folgendes Problem:

Ich habe der Tabelle_xy die Variable "Daten1" zugewiesen

(Dim Daten1 As Worksheet
Set Daten1 = ActiveSheet)

Eine Formel, die von einem anderen Sheet auf Tabelle_xy (bzw.Daten1)
zugreifen soll
sieht folgendermaßen aus:

Range("A3").FormulaR1C1 = "='Tabelle_xy'!R[-2]C"

Wie kann ich "Tabellexy" in dieser Formel durch die Variabel "Daten1"
ersetzen, so dass die Formel funktioniert?

Sheet-Variable in Berechnungsformel
 

Hi Stefi,

Thank you very much. That helped me a lot.

Because "Daten1" is the Worksheet the fomula must be:

Range("A3").FormulaR1C1 = "=" & Daten1.Name & "!R[-2]C"

Regards