Sub Sverweis()
Dim c As Long
Dim rngZiel As Range
Dim Dateiquelle As String
Dim Dateiziel As String
Dim sPfad As String
Dim ab As Long
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
Dateiquelle = "Daten.xls"
Dateiziel = "Test Sverweis.xls"
sPfad = "C:\Users\Caro\Desktop"
ab = 2
lr = Cells(Rows.Count, "A").End(xlUp).Row
Set wksQuelle = Workbooks(Dateiquelle).Worksheets("Auswahl")
Set wksZiel = Workbooks(Dateiziel).Worksheets("Tabelle1")
Set rngZiel = Columns("L:L").Cells(ab)
For c = ab To lr
rngZiel.Cells(c).Value = Application.WorksheetFunction.VLookup(wksZiel.Cells(c, "A"), wksQuelle.Range("A1:J556"), 10, False)
Next
End Sub