Excel Als formule in VBA

[lalalalo]

Hoi allen,

Ik wil graag de volgende formule werkend in excel. Alleen het lukt me niet helemaal. En snap niet waardoor dat komt.


Mijn code is:

Dim i As Integer
i = 2
Do While Cells(i, 2).Value <> ""
Cells(i, 1).Formula = "=IF(LEFT(RC[1],2)=""KN"",""niet suspend KN"",IF(TYPE(VLOOKUP(RC[1],'Uploaded date NL60'!C2:C3,2,FALSE))=16,IF(RC[5]=""Ci"",""suspend Ci"",IF(RC[5]=""Cj"",""Suspend Cj"",IF(TYPE(VLOOKUP(RC[1],'Openstaand Saldo NL60'!C1:C2,2,FALSE))=16,""suspend"",""suspend-openstaand saldo""))),""niet suspend actief"")))"
i = i + 1
Loop

Hij begrijpt de formule niet, als ik namelijk een random formule erin stop als A1+a2 dan werkt de VBA wel. Kan iemand me helpen?

 

[ExcelAmateur]

Ik zelf neem de formule op met Macro opnemen, deze schrijft hem dan voor je.
Kun je gelijk zien wat je fout gedaan heb.

 

[lalalalo]

Dat heb ik ook gedaan, dat is juist het gekke....

 

[ExcelAmateur]

Als de formule in een cel staat, gebruik dan Formule evalueren,
dan loop je de formule door en zie je misschien waarom hij het niet doet.

 

[Timshel]

Probeer eens zo (1 haakje rechts verwijderd):

...
cells(i,1).FormulaR1C1 = "=IF(LEFT(RC[1],2)=""KN"",""niet suspend KN"",IF(TYPE(VLOOKUP(RC[1],'Uploaded date NL60'!C2:C3,2,FALSE))=16,IF(RC[5]=""Ci"",""suspend Ci"",IF(RC[5]=""Cj"",""Suspend Cj"",IF(TYPE(VLOOKUP(RC[1],'Openstaand Saldo NL60'!C1:C2,2,FALSE))=16,""suspend"",""suspend-openstaand saldo""))),""niet suspend actief""))"
...

 

[E v R]

De formule is te lang (max 255 karakters)