Hi liebe Forum-User, 

vorab ein Dankeschön für die Antworten auf meine Frage. 

Ich muss bei meinem Problem Daten (ca. 700.000 Zeilen) aus einer Matrix (2 Spalten; Index: Spalte 4; Gesuchte Daten: Spalte 5) über den SuchIndex (ca. 430.000 Daten) Spalte 1 ermitteln und möchte diese in Spalte 7 rausgeben.

Nun habe ich versucht dies mithilfe von Vlookup und Variant zu lösen.
Dabei sind einige Schwierigkeiten aufgetreten, wo ich momentan keine Lösung für habe.

Unter anderem erscheint jedesmal die Meldung "Laufzeitfehler 13: Typen unverträglich" 

Ich hoffe, dass Ihr mir meine Fehler im Code aufzeigen könnt:  

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) = WorksheetFunction.VLookup(varCRMINDX(i, 1), varPIMMATR, 2, False)
    Next i

    Range(Cells(2, 7), Cells(zeileMaxELD, 7)).Select
    Selection = varCALCCRM

End Sub