wie kann ich die Formel:
=WENN(D6="";"";SVERWEIS(D6;'Datenbank Arbeitsort'!$B$3:$C$145;2;FALSCH))
in VBA darstellen?
Danke und LG
Steffen
With Range("...") ' hier den Zellbereich angeben, in dem das Eingefügt werden soll
.FormulaLocal = "=WENN(D6="""";"""";SVERWEIS(D6;'Datenbank Arbeitsort'!$B$3:$C$145;2;FALSCH))"
.Formula = .Value
End with
Als VBA-Makro so:If Range("D6").Value "" Then Range(...).Value = Worksheetfunction.VLookUp(Range("D6"), Sheets("Datenbank Arbeitsort").Range("B3:C145"), 2, False)
das ist aber höchstens für einen Einzelnen SVerweis sinnvoll.