[vba] FormulaLocal mit eigenen Variablen nutzen

Question

Ein frohes neues Jahr euch allen :)

ich habe eine Frage zur Nutzung von Variablen innerhalb der FomulaLocal-Anweisung.

Ich möchte eine gewisse Anzahl von Zeilen durchzählen und deren Werte entsprechend in andere Zellen einfügen.

Hier ist mein (leider falscher) Quelltext:

Dim cnt As Integer

For cnt = 2 To Ende
Range("F" & cnt).FormulaLocal = "=JAHR(HEUTE())-JAHR(""C""&cnt)" ' Alter ausrechnen
Next cnt

Gibt zwar keine Fehlermeldung, aber auch nicht das gewünschte Ergebnis :(.

Kann mir jemand sagen, was ich falsch mache?

Answer 1

Ok, hab grad mitgekriegt, dass ich eine falsche Formel eingetragen hatte.

Also nochmal

For cnt = 2 To Ende
Range("D" & cnt).FormulaLocal = "=TEXT(TEIL(C2;1;6);"JJJJ")"
Next cnt

Anstelle von Teil(C2) soll Teil("C" & cnt) ausgeführt werden, nur weiß ich nicht wie ich das vba beibringen soll.

Answer 2

Hallo,

das machst du im Prinzip genau so wie bei deinem Range-Teil:

For cnt = 2 To Ende
Range("D" & cnt).FormulaLocal = "=TEXT(TEIL(C" & cnt & ";1;6);""JJJJ"")"
Next cnt

Beachte bitte, dass du doppelte Hochkomma im Formelausdruck setzen musst, wenn in der Formel ein Hochkomma verlangt wird.

Gruß

M.O.