FormulaR1C1

[Felix]

Grüße,

ich werd hier noch wahnsinnig!

Ich habe eine Variable diff As Integer und meine Zeile

diff As Integer

ActiveCell.FormulaR1C1= "=R[-"&diff&"]C[-3]+((R[1-"&diff&"]C[-3]-R["&diff&"]C[-3])/(R[1-"&diff&"]C[-4]-R["&diff&"]C[-4])*(R[1-"&diff& "]C[-2]-R["&diff&"]C[-4]))".

Aber er will  mir das nich abnehmen. Nee Ahnung was ich machen kann?
Ich will doch nur die Bezüg meiner diff entsprechend verschieben.

Danke

[Jörg Lorenz]

Hi,

ActiveCell.FormulaR1C1= "=R[-"&diff&"]C[-3]+((R[1-"&diff&"]C[-3]-R["&diff&"]C[-3])/(R[1-"&diff&"]C[-4]-R["&diff&"]C[-4])*(R[1-"&diff& "]C[-2]-R["&diff&"]C[-4]))".

das kann nicht gehen.

Bei der Übergabe an die Zelle müssen die Zeilen- und Spaltennummern bereits berechnet sein, was in Deinem Beispiel nicht der Fall ist:

… +((R[1-"&diff&"]C[-3]- …

Du verknüpfst heir einfach die Zeile "1-" mit dem, was in diff steht, wobei alles außer diff eine Zeichenfolge (String) ist. Die 1 wird also nicht als Ziffer anerkannt. Das wäre eine Möglichkeit:

x = 1 - diff  
ActiveCell.FormulaR1C1 = "=R[-" & diff & "]C[-3]+((R[" & x & "]C[-3]-R[" & diff & "]C[-3])/(R[" & x & "]C[-4]-R[" & diff & "]C[-4])*(R[" & x & "]C[-2]-R[" & diff & "]C[-4]))"

Viele Grüße

Jörg