Hallo,

habe mir die Mühe doch noch selbst gemacht, aus dem Endlostext den Code herauszufiltern und lauffähig zu machen :-)

Im VBA Code sind zwei Fehler enthalten:

WBBlacklist.Worksheets("Leichen").Rows("A")

Dieserr Befehl ist falsch, da Rows keine Parameter als String annehmen. Wenn dann muss hier eine Zahl übergeben werden.

Doch selbst wenn hier ...

WBBlacklist.Worksheets("Leichen").Rows(1)

... eingetragen wird, meldet der VLookup immer noch einen Fehler.

Erst nachdem hier ...

WBBlacklist.Worksheets("Leichen").Columns(1)

... eingetragen wird, läuft der VBA-Code fehlerfrei durch.

Ganzer VBA-Code:

Public WBSFMB As Workbook, WBSQ01 As Workbook, WBCycledatei As Workbook, WBZIW67 As Workbook
Public ExportDatei1 As Variant, ExportDatei2 As Variant, ExportDatei3 As Variant
Public WBBlacklist As Workbook

Sub Test()
    Dim IngLast As Double, letztezeile1 As Double
    Dim lastZ As Integer
    Dim Blacklist As Range
    Dim lastZ1 As Long
    Dim lastZ2 As Long
    Dim i As Long
    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").Columns(1), 1, False)
    Next
End Sub

Wenn künftig ein Beitrag in dieses Forum eingestelt wird, sollte man gleich zum Firefox greifen, dann werden die Inhalte auch richtig übernommen.

LG, BigBen