[VBA] Ergebnis einer R1C1-Formel in Zelle eintragen

[Rabe]

Hi,

wie kann ich statt der Formel:

Code:

ActiveSheet.Range("D" & j).FormulaR1C1 = _
    "=IFERROR(VLOOKUP(RC3,Maßnahmenzuordnung!R4C1:R103C3,3,0),"""")"

gleich das Ergebnis in die Zelle eintragen lassen?

[snb]

Code:

Sub M_snb()
   sn=sheets("Maßnahmenzuordnung").range("A4:C103")
   for jj=1 to ubound(sn()
     if sn(jj,1)=activesheet.cells(j,3) then exit for
   next
   ActiveSheet.cells(j,4)=sn(jj,3)
End Sub

oder

Code:

Sub M_snb()
   sn=sheets("Maßnahmenzuordnung").range("A4:A103")
   sp=sheets("Maßnahmenzuordnung").range("C4:C103")
   ActiveSheet.cells(j,4)=sp(application.match(activesheet.cells(j,3),sn,0),1)
End Sub

[Kuwer]

Hi Ralf,

vielleicht auch so:

ActiveSheet.Range("D" & j).Value = _
   Evaluate("IFERROR(VLOOKUP(RC3,Maßnahmenzuordnung!R4C1:R103C3,3,0),"""")")

Gruß Uwe