Option Explicit
Sub SverweisZwei()
Dim i As Long, letzteZeile As Long
Dim Arbeitsmappe As Workbook
Dim Datenbasis As Worksheet, Ziel As Worksheet
Dim Bereich As Range
Dim WsF As WorksheetFunction
Set Arbeitsmappe = ThisWorkbook
Set Datenbasis = Arbeitsmappe.Worksheets("Tabelle 3")
Set Ziel = Arbeitsmappe.Worksheets("Genehmigerliste")
letzteZeile = Datenbasis.Range("A" & Rows.Count).End(xlUp).Row
Set Bereich = Datenbasis.Range("A1:E" & letzteZeile)
Set WsF = Application.WorksheetFunction
For i = 4 To Ziel.Range("D" & Rows.Count).End(xlUp).Row
On Error Resume Next
Ziel.Range("L" & i).Value = WsF.VLookup(Ziel.Range("D" & i).Value, Bereich, 3, False)
Next i
End Sub