Waarde ingevuld in formulier is .text, indien leeg dan "formule" (VBA)

[jk88]

Beste Excel-kenners,

Ik heb een formulier gemaakt in Excel m.b.v. VBA. Nu is het volgende het geval:

Als men textbox12 invult moet deze waarde op rij 2, kolom 11 komen te staan. Als men echter de waarde 0 of helemaal niets in textbox12 invult moet hij een formule invoeren. De formule heb ik, maar nu moet ik dus nog onderstaande 2 regels zien samen te voegen.

    ActiveCell.Offset(1, 11).Value = "=ROUNDUP((RC[-1]/100)*RC[-5],1)"
    ActiveCell.Offset(1, 11).Value = TextBox12.Text

Iemand enig idee hoe dat moet in VBA? Waarschijnlijk met een vorm van IF THEN formule, maar ik kom er niet uit. Alvast bedankt!

 

[Cobbe]

Zou deze werken?

If textBox12 = "" Then
    ActiveCell.Offset(1, 11).Value = "=ROUNDUP((RC[-1]/100)*RC[-5],1)"
  Else
    ActiveCell.Offset(1, 11).Value = textBox12.Text
End If

 

[jk88]

Wat dom, ik zat te denken vanuit de ActiveCell ipv uit de if then. Te lang niet meer in VBA bezig geweest. Thnx!