Tach zusammen,

bin grad kurz vorm Durchdrehen, weil ich an einer vermeintlich einfachen Aufgabe scheitere.
In Zelle O2 steht meine aktuelle Summe, und ich will in P2 eine Formel einbauen, die den Wert aus O2 mit einem bestimmten Wert multipliziert oder dividiert. Diesen Wert berechne ich zur Laufzeit, er steht in der Variablen v_Div.


Typen unverträglich



Anwendungsfehler



läuft durch, aber in der Zelle steht dann: "=O2/v_Div", was dann #NAME liefert



das gleiche, nur eben "=O2/cstr(v_Div)"



Anwendungsfehler

Vielleicht hab ich da auch grad ein Brett vorm Kopf... :wacko:

Also, besten Dank schon mal!

Timo

dwt73 schrieb:

Visual Basic-Quellcode

1. v_Div = c_AnzKWdiesesJahr / v_aktKW
2. Sheets(c_ShtBer).Range("P2").FormulaR1C1 = "=RC[-1]/v_Div"

läuft durch, aber in der Zelle steht dann: "=O2/v_Div", was dann #NAME liefert

Bei dieser Variante kannst du den Namen "v_Div" in der Arbeitmappe definieren. Dann funktioniert es:

dwt73 schrieb:

Visual Basic-Quellcode

1. Sheets(c_ShtBer).Range("P2").FormulaR1C1 = "=RC[-1]/" & CStr(v_Div)

Anwendungsfehler

Das kommt daher, dass man in VBA bei Formelzuweisungen das englische Zahlenformat nehmen muss. Man muss also "," durch "." ersetzen:



Gleiches gilt für den oberen Anwendungsfehler. Dieser würde dann mit Replace auch funktionieren.

dwt73 schrieb:

Visual Basic-Quellcode

1. Sheets(c_ShtBer).Range("P2").FormulaR1C1 = "=RC[-1]" * v_Div

Hier wird ein String ("=RC[-1]") mit einem Zahlwert (v_Div) multipliziert, daher "Typen unverträglich"

Vielen Dank, das war sehr aufschlussreich. Ich habe die Variante mit Replace gewählt.

Beste Grüße
Timo

Die Anzahl KWs pro Jahr ist nicht konstant... hoffe ich schocke dich nicht, wenn ich dir sage, dass Excel ne Funktion Kalenderwoche hat und du vermutlich von hinten durch die Brust ins Auge programmiert hast

Kein Problem, meine KWs orientieren sich an unserem Controlling-Kalender, und die Stammdaten für solche Variablen werden sauber gepflegt.