Formel per VB in Tabelle übertragen

[derhanfti]

Hallo,

ich möchte gern per VB eine Formel in ein Tabellenblatt eintragen. Das klappt ja eignetlich ganz gut mit

Sheets("Tabelle2").Range("J3").Formula = "=I3-F3"

Nun möchte ich jedoch, das die Formel eine "Wenn" Funktion besitzt, alle Zellen sind in Währung formatiert.

Sheets("Tabelle2").Range("J3").Formula = "=Wenn(I3>0;I3-F3;0)"

Leider wird das nicht unterstützt. Was mache ich Falsch bzw. was muss abgeändert werden?

Vielen Dank ....Markus

[Kuwer]

Hallo Markus,

entweder
Sheets("Tabelle2").Range("J3").FormulaLocal = "=Wenn(I3>0;I3-F3;0)"

oder
Sheets("Tabelle2").Range("J3").Formula = "=If(I3>0,I3-F3,0)"

Gruß Uwe

[Gast 123]

Hallo Markus

'Sheets("Tabelle2").Range("J3").FormulaLocal = "=Wenn(I3>0;I3-F3;0)"

Bei Formula setzt Excel meines Wissen die Angabe in R1C1 voraus!  (Zeilen/Spalten Angabe als Zahl)

mfg  Gast 123

[derhanfti]

Vielen Dank euch....Klappt wunderbar