VBA formule in cel zetten

[TJ86]

Hallo collega's,

door middel van een icoontje (welke een macro bevat) wil ik een formule in een cel zetten welke ook wordt uitgevoerd.

De formule in de cel is: =ALS(D8="";"";ALS.NB(VERT.ZOEKEN($D$8;'AA01-MH'!$A:$E;5;0);ALS.NB(VERT.ZOEKEN($D$8;'AA01-VH'!$A:$E;5;0);ALS.NB(VERT.ZOEKEN($D$8;'AA01-PR'!$A:$E;5;0);ALS.NB(VERT.ZOEKEN($D$8;'AA01-ST'!$A:$E;5;0)))))

Als ik volgende VBA code gebruik (welke ik op internet heb gevonden) wordt de formule niet in de cel gezet:

Range("D12:P12").Select
     Selection.Formula = "=ALS(D8="";"";ALS.NB(VERT.ZOEKEN($D$8;'AA01-MH'!$A:$E;5;0);ALS.NB(VERT.ZOEKEN($D$8;'AA01-VH'!$A:$E;5;0);ALS.NB(VERT.ZOEKEN($D$8;'AA01-PR'!$A:$E;5;0);ALS.NB(VERT.ZOEKEN($D$8;'AA01-ST'!$A:$E;5;0);)))))"

D12 : P12 zijn zogenaamde "merged cells"

Wat doe ik fout?

 

[Cobbe]

Ik zou het zo eens testen:

Range("D12").FormulaLocal = "=ALS(D8="";"";ALS.NB(VERT.ZOEKEN($D$8;'AA01-MH'!$A:$E;5;0);ALS.NB(VERT.ZOEKEN($D$8;'AA01-VH'!$A:$E;5;0);ALS.NB(VERT.ZOEKEN($D$8;'AA01-PR'!$A:$E;5;0);ALS.NB(VERT.ZOEKEN($D$8;'AA01-ST'!$A:$E;5;0);)))))"

 

[TJ86]

Yess Cobbe! Thanks! Dit werkt! Bedankt.