Ich hab inzwischen einen Fehler gefunden (?), dessen Verbesserung(?) mich aber zum selben Laufzeitfehler bringt:
Hatte den Index in der Schleife für die variable "varCALCCRM"auf i statt auf (i,1) gesetzt.
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
Ich bitte euch weiterhin um eine Lösung und danke vorab für die Mühe
LG Moe
|