aufgezeichnete Formel mit Konstanten ergänzen
19.05.2009 08:25:46
Laura
leider bräuchte ich schon wieder Eure Hilfe.
Mittels einer Schleife möchte ich ein Datenblatt vervollständigen. Die Formeln in Spalte J sollen eine Abweichung in Euro ausrechnen.
Ich habe per Makrorekorder folgende Formel aufgezeichnet, die auch tadellos funktioniert:
Cells(intI, 10).FormulaR1C1 = _
"=ROUND(IF(RC[-4]>0,(RC[-1]*12.3/1000),(RC[-1]*20.5/1000)),2)"~f~
In Excel sieht diese dann z.B. wie folgt aus (Beispiel aus Zeile 1):
~f~=RUNDEN(WENN(F1>0;(I1*12,3/1000);(I1*20,5/1000));2)~f~
Die 12,30 und die 20,50 habe ich in den Konstanten"PreisReduziert" und "PreisVoll", da sich diese evtl. einmal ändern und ich so nur die für mich übersichtlicheren Konstanten anfassen muss.
Jetzt würde ich diese Konstanten gerne in die Formel einbauen.
So funktioniert es aber leider nicht (Laufzeitfehler '1004': Anwendungs- od. objektdef. Fehler):
~f~Cells(intI, 10).FormulaR1C1 = _
"=ROUND(IF(RC[-4]>0,(RC[-1]*" & PreisReduziert & "/1000),(RC[-1]*" & PreisVoll & "/1000)),2)"
Was mache ich falsch? Wie muss die Formel korrekt lauten?
Vielen Dank im Voraus und viele Grüße,
Laura