VBA Formule Vert. Zoeken

[maxpaynelive]

Beste Lezer,

Ik wil de vert. zoeken formule met VBA invoegen in mijn worksheet

Voorbeeld 1

       =ALS.FOUT(VERT.ZOEKEN(Tabel1[@[Code_01]],R12C4:R[-1]C[-1],3,[B][I]ONWAAR[/I][/B]),""-N.G.-"")

Als ik hem met een macro opneem komt hij zo in VBA te staan.
Daarna voer ik de macro uit. Er komt nu de foutmelding #naam in de cel te staan.
Als ik vervolgens de cel ververs blijft de fout er staan.



Voorbeeld 2

  =ALS.FOUT(VERT.ZOEKEN(Tabel1[@[Code_01]],R12C4:R[-1]C[-1],3,[B][I]FALSE[/I][/B]),""-N.G.-"")"

Nu heb ik "ONWAAR" veranderd in "FALSE"
Daarna voer ik de macro uit. Er komt nu de foutmelding #naam in de cel te staan.
Als ik vervolgens de cel ververs staat de fout er niet meer.


Waarom moet ik de cel verversen voordat de fout weggaat?
Is hier een oplossing voor? Ik moet nu alle cellen handmatig verversen.
Alvast bedankt

Bekijk bijlage Schakelmatrix V02.xlsm
(in de bijlage een testvoorbeeld. Gebruik de knop1 op de sheet, de betreffende formule bevind zich in macro38)

 

[HSV]

Codes schrijf je in het Engels, dus ook formules, tenzij je "formulalocal" i.p.v. "formulaR1C1" gebruikt.

Range("Tabel1[VD02]").FormulaR1C1 = _
       "=iferror(vlookup(Tabel1[[Code_01]],R12C4:R[-1]C[-1],3,FALSE),""-N.G.-"")"

 

[maxpaynelive]

Dankje hij werkt nu wel goed!