Laufzeitfehler 13 bei VLookup mit Variant
11.04.2016 11:25:41
Moe
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, 1) = WorksheetFunction.VLookup(varCRMINDX(i, 1), varPIMMATR, 2, False)
Next i
Range(Cells(2, 7), Cells(zeileMaxELD, 7)).Select
Selection = varCALCCRM
End Sub
LG Moe
Anzeige