Verwijzing in formule klopt niet

[goof2808]

Hi,

In de eerste lege cel in kolom AW wil ik een formule plaatsen:

Range("AW65536").End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select

Onderstaande formule moet in die cel ingevoerd worden:

=ALS($B2=0;"";VERT.ZOEKEN($B2;'tp-import'!intermediairs_import;4;0))

Hiervoor gebruik ik onderstaande code:

ActiveCell.FormulaR1C1 = _
        "=IF(R[-2]C2=0,"""",VLOOKUP(R[-2]C2,'tp-import'!intermediairs_import,4,0))"

In de cel komt uiteindelijk:

=ALS($B65536=0;"";VERT.ZOEKEN($B65536;'tp-import'!intermediairs_import;4;0))

$B65536 ipv $B2

Kan iemand helpen?
Thanks,
govi

ps: ik heb deze vraag ook op worksheet.nl uitgezet omdat ik echt om het antwoord verlegen zit.......

 

[goof2808]

Ik heb de oplossing:

Sub tst()
  Sheets(1).Cells(65536, 6).End(xlUp).Offset(1).FormulaR1C1 = "=IF(R[+0]C2=0,"""",VLOOKUP(R[-0]C2,'tp-import'!intermediairs_import,4,0))"
End Sub