Hallo zusammen,
ich versuche gerade über einen Vergleich via Vlookup eine Auswertung zu machen. Leider erhalte ich laufend Fehlermeldungen und finde den Fehler nicht. Ich denke der Fehler liegt irgendwo in den Argumenten der Vlookup-Funktion. Vielen Dank für eure Hilfe.
[code=html]
Public WBSFMB As Workbook, WBSQ01 As Workbook, WBCycledatei As Workbook, WBZIW67 As Workbook
Public ExportDatei1 As Variant, ExportDatei2 As Variant, ExportDatei3 As Variant
Sub Test()
Dim IngLast As Double, letztezeile1 As Double
Dim lastZ As Integer
Dim Blacklist As Range
Set WBSFMB = ThisWorkbook
ExportDatei1 = Application.GetOpenFilename("Excel-Dateien, *.xl*", , "Bitte die gewünschte SQ01-Auswertung auswählen")
If ExportDatei1 = "Falsch" Then Exit Sub
Set WBBlacklist = Workbooks.Open("H:\RepairServices\001_Office_Organisation\040_Students\PVRC\012_Maximilian Maevert\SFM Board\Daten\Blacklist.xlsx")
Set WBSQ01 = Workbooks.Open(ExportDatei1)
lastZ1 = WBBlacklist.Worksheets("Leichen").Range("A65536").End(xlUp).Row
lastZ2 = WBSQ01.Worksheets("Sheet1").Range("A65536").End(xlUp).Row
WBSQ01.Worksheets("Sheet1").Cells(1, "AA").Value = "Abgleich GDNI"
For i = 2 To lastZ2
WBSQ01.Worksheets("Sheet1").Range("A" & i).Value = WorksheetFunction.VLookup(WBSQ01.Worksheets("Sheet1").Cells(i, "A").Value, WBBlacklist.Worksheets("Leichen").Rows("A"), 1, False)
Next
End Sub
[/code] |