Option Explicit
Sub SVERWEIS_Vlookup()
Debug.Print Now
Dim i As Long, letzteZeile As Long <strong>‘Verständnisfrage_1</strong>
Dim Arbeitsmappe As Workbook
Dim Datenbasis As Worksheet
Dim Ziel As Worksheet
Dim Bereich As Range
Dim ZelleFirma As Range <strong>‘Verständnisfrage_2</strong>
Dim WsF As WorksheetFunction
Set Arbeitsmappe = ThisWorkbook
Set Datenbasis = Arbeitsmappe.Worksheets("Quelle") <strong>‘Problem_1</strong>
Set Ziel = Arbeitsmappe.Worksheets("Ziel (Makro Variante1)")
letzteZeile = Datenbasis.Range("A1048576").End(xlUp).Row <strong>‘Problem_2</strong>
Set Bereich = Datenbasis.Range("A1:G" & letzteZeile)
Set WsF = Application.WorksheetFunction
For i = 3 To Ziel.Range("A1048576").End(xlUp).Row ‘<strong>Verständnisfrage_1 und Problem_2
</strong>Ziel.Range("B" & i).Value = WsF.VLookup(Ziel.Range("A" & i).Value, Bereich, 3, False)
Ziel.Range("C" & i).Value = WsF.VLookup(Ziel.Range("A" & i).Value, Bereich, 4, False)
Ziel.Range("D" & i).Value = WsF.VLookup(Ziel.Range("A" & i).Value, Bereich, 5, False)
Ziel.Range("E" & i).Value = WsF.VLookup(Ziel.Range("A" & i).Value, Bereich, 6, False)
Ziel.Range("F" & i).Value = WsF.VLookup(Ziel.Range("A" & i).Value, Bereich, 7, False)
Next i
Debug.Print Now
End Sub