Sub VlookUpTest3()
Workbooks("ELD.xlsm").Worksheets("ELD_Daten").Activate
Dim varCRMMATR As Variant
Dim varPIMMATR As Variant
Dim varCALCCRM As Variant
Dim varCALCPIM As Variant
Dim varCALCELD As Variant
Dim varCRMINDX As Variant
Dim varPIMINDX As Variant
Dim zeileMaxCRM As Long
Dim zeileMaxPIM As Long
Dim zeileMaxELD As Long
Dim i As Long
zeileMaxCRM = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
zeileMaxPIM = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
zeileMaxELD = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Range(Cells(2, 1), Cells(zeileMaxCRM, 3)).Select
varCRMMATR = Selection
Range(Cells(2, 4), Cells(zeileMaxPIM, 5)).Select
varPIMMATR = Selection
Range(Cells(2, 5), Cells(zeileMaxELD, 5)).Select
varCALCCRM = Selection
For i = 1 To zeileMaxELD
varCALCCRM(i, 1) = WorksheetFunction.VLookup(varCRMINDX(i, 1), varPIMMATR, 2, False)
Next i
Range(Cells(2, 7), Cells(zeileMaxELD, 7)).Select
Selection = varCALCCRM
End Sub