Hent en værdi fra en fil til en anden hvis kriterie er opfyldt

Har fundet en løsning :)
Til dem som kunne være interesseret er koden dette :)

Sub KopierXVedMatchendeKundenummer()
    Dim wsHoved As Worksheet, wsAnden As Worksheet
    Dim wbHoved As Workbook, wbAnden As Workbook
    Dim kundeNummer As Range, matchKunde As Range
    Dim lastRowHoved As Long, lastRowAnden As Long
    Dim i As Long, j As Long

    ' Åbn begge arbejdsbøger
    Set wbHoved = Workbooks.Open("C:\sti\til\hovedfil.xlsx")
    Set wbAnden = Workbooks.Open("C:\sti\til\andenfil.xlsx")

    ' Sæt referencer til de relevante ark
    Set wsHoved = wbHoved.Sheets("Navn på dit ark i hovedfilen")
    Set wsAnden = wbAnden.Sheets("Navn på dit ark i anden filen")

    ' Find sidste række i begge ark
    lastRowHoved = wsHoved.Cells(wsHoved.Rows.Count, "B").End(xlUp).Row
    lastRowAnden = wsAnden.Cells(wsAnden.Rows.Count, "H").End(xlUp).Row

    ' Loop igennem alle kundenumre i hovedfilen
    For i = 2 To lastRowHoved
        Set kundeNummer = wsHoved.Cells(i, 2)
       
        ' Søg efter kundenummeret i anden fil
        For j = 2 To lastRowAnden
            If wsAnden.Cells(j, 8).Value = kundeNummer.Value Then
                If wsAnden.Cells(j, 9).Value = "X" Then
                    ' Kopier "X" til hovedfilen, hvis fundet
                    wsHoved.Cells(i, 3).Value = "X"
                End If
                Exit For
            End If
        Next j
    Next i

    ' Gem og luk arbejdsbøgerne
    wbHoved.Save
    wbAnden.Close False
    wbHoved.Close False

    MsgBox "Processen er fuldført!"
End Sub