[VBA] Ergebnis der Formel statt Formel in Zelle eintragen

[Rabe]

Hallo,

wie kann ich das Ergebnis der Berechnung statt der Formel in eine Zelle eintragen lassen:

Code:

Formel:
=SVERWEIS($E$7;Datenbank!$C$3:$AY$69;49;0)

Formel eintragen:

Code:

  .Range("G19").FormulaR1C1 = "=VLOOKUP(R7C5,Datenbank!R3C3:R69C51,49,0)"

Hier erwartet der Editor ein Listentrennzeichen oder ) anstelle des :

Code:

  .Range("I7").value = worksheetfunction.VLOOKUP(R7C5,Listen!R3C16:R69C18,3,0)"

[edit]
so gehts:

Code:

.Range("I7").Value = WorksheetFunction.VLookup(.Range("E7"), Worksheets("Listen").Range("P3:R69"), 3, 0)

[snb]

z.B.

Code:

Sub M_snb()
  Sheet1.Range("G19") = Sheets("Datenbank").Range("C3:C69").Find([E7], , , 1).Offset(, 48)
  
  Sheet1.Range("G19") = Application.VLookup([E7], [Datenbank!C3:AY69], 49, 0)

  Sheet1.Range("G19") = Application.Index([Datenbank!C3:AY69], Application.Match([E7], [Datenbank!C3:C69], 0), 49)

  Sheet1.Range("G19") = "=VLOOKUP(E7,Datenbank!C3:AY69,49,0)"
  Sheet1.Range("G19") = Sheet1.Range("G19").Value
  
  sn = Sheets("Datenbank").Range("AY3:AY69")
  sp = Sheets("Datenbank").Range("C3:C69")
  Sheet1.Range("G19") = sn(Application.Match([E7], sp, 0), 1)
End Sub

[Rabe]

Hallo,

danke für die vielen Vorschläge!