Vlookup geht nicht
21.02.2019 10:05:13
Junior
ich habe folgende Funktion:
Sub vba_sverweis()
Dim Ergebnis As Variant
Dim Suche As Variant
Ergebnis = Range("AS4")
Suche = Range("AR4")
Ergebnis = WorksheetFunction.vlookup(Suche, Sheets("Datengrundlage").[a1:e99999], 5, False)
End Sub
In Zelle AS4 soll der Wert eingetragen werden, der durch Suche des Inhalts von AR4 in dem Tabellenblatt Datengrundlage gefunden wird. Wird AR4 dort gefunden, dann soll sich AS4 mit dem Inhalt der 5. Spalte aus dem Tabellenblatt Datengrundlage füllen.Über den normalen Sverweis alles kein Problem, aber bei der VBA Logik geht es irgendwie nicht. Hat jemand eine Idee? Zusätzlich würde ich gerne die feste Bezeichnung von AS4 und AR4 durch "AS"&activecell.row bzw. AR&activecell.row ersetzen. Geht aber auch nicht :(
Danke.
Junior