Formule in een cel plaatsen via VBA

[Sabphi]

Via een form vraag ik gegevens op die daarna op de laatste lege rij van het werkblad worden ingevuld.
Nu had ik graag een formule in een kolom 8 weggeschreven wanneer de gegevens in de laatste lege rij worden geschreven.
Heb gepoogd met Value en deze lukt ook niet. Hier wat rond gezocht en ook niet echt een directe oplossing.

'Plaatst de gegevens in de database
ws.Cells(iRow, 1).Value = Me.DTPicker1.Value
ws.Cells(iRow, 2).Value = Me.ComboBox_Rekening.Value
ws.Cells(iRow, 3).Value = Me.ComboBox_voorwerp.Value
ws.Cells(iRow, 4).Value = Me.ComboBox_Onderdeel.Value
ws.Cells(iRow, 5).Value = Me.Text_in.Value
ws.Cells(iRow, 6).Value = Me.Text_uit.Value
ws.Cells(iRow, 7).Value = Month(Me.DTPicker1.Value)
ws.Cells(iRow, 8).Formula = "=ALS(B441=$H$2;H440+E441-F441;H440)"

 

[pasan]

kijk hier eens
http://www.helpmij.nl/forum/showthread.php/693919-Formule-in-cel-zetten-met-VBA

 

[VenA]

vervang de "ALS" eens door "IF"

 

[Sabphi]

En ik maar zoeken en testen.

Bedankt Pasan,

Met de simpele FormulaLocal is dit opgelost.