Formule vanuit een macro

[MMV]

Middels onderstaande code voeg ik een formule in in een cel.

 Range("J2").Value = "=HYPERLINK(VERVANGEN(I2;57;10;H2);H2)"

Nu verschijnt in de cel de fomule, en niet de waarde welke de formule zou moeten berekenen. Wanneer ik echter in de cel ga staan en ik druk op 'ENTER' geeft de formule wel de berekende waarde.

Weet iemand raad?

 

[OctaFish]

Probeer dit eens:

Range("J2").[B]Formula[/B]= "=HYPERLINK(VERVANGEN(I2;57;10;H2);H2)"

Michel

 

[Wigi]

Probeer ook:

Range("J2").[B]FormulaLocal[/B] = "=HYPERLINK(VERVANGEN(I2;57;10;H2);H2)"

Wigi

 

[snb]

    Application.Calculation = xlCalculationAutomatic

 

[MMV]

Dank voor jullie snelle reactie.

Helaas werkte dit niet!
Ik heb geprobeerd tot ik een ons woog en ik heb de volgende workarround bedacht.

 Range("J2").Select
    ActiveCell.FormulaR1C1 = "=HYPERLINK(REPLACE(RC[-1],57,10,RC[-2]),RC[-2])"
    Range("J3").Select

Hierop voortbouwend: ik krijg nu de error op regel:

   'Overtollige kolommen verwijderen
    Range("A:A,C:C,E:E,F:F,N:N,T:T,V:V,W:W,X:X,AD:AD").Select
    Selection.Delete Shift:=xlToLeft

Zie ook de bijlage, iemand weet?

 

[Wigi]

Dit moet werken:

Range("J2").Formula = "=HYPERLINK(REPLACE(RC[-1],57,10,RC[-2]),RC[-2])"