VBA macro der indlæser 2 regneark og samenligner arkene

Koden indsættes i en separat XLS-fil - ark1:

Dim xsti

Const RækSam = 1                    'antal rækker til sammenligning
Const RækVis = 5                    'antal rækker til visning

Rem Test-data
Const fil1 = "fil1.xls"
Const fil2 = "fil2.xls"
Const k1 = "A"
Const k2 = "F"

Dim xls1, xls2, okFlag As Boolean
Sub BegyndSammenligning()
Rem find system-sti
    xsti = ActiveWorkbook.Path
    If Right(xsti, 1) <> "\" Then
        xsti = xsti + "\"
    End If
   
Rem Slet gl. indhold + sæt Flag
    Cells.Clear
    okFlag = True
   
Rem Sæt id i system
    Cells(1, 1) = fil1 + " [" + k1 + "]"
    Cells(1, 2) = fil2 + " [" + k2 + "]"
   
    åbnXls xls1, xsti + fil1
    åbnXls xls2, xsti + fil2
   
Rem Sammenlign - hvis uens - sæt flag
    For ræk = 1 To RækSam
        If xls1.Range(k1 + CStr(ræk)) <> xls2.Range(k2 + CStr(ræk)) Then
            okFlag = False
        End If
    Next ræk
   
Rem Vis rækker hvis forskel
    If okFlag = False Then
        For ræk = 1 To RækVis
            Cells(ræk + 1, 1) = xls1.Range(k1 + CStr(ræk))
            Cells(ræk + 1, 2) = xls2.Range(k2 + CStr(ræk))
        Next ræk
    End If
   
Rem Luk filerne
    xls1.Application.Quit
    Set xls1 = Nothing
   
    xls2.Application.Quit
    Set xls2 = Nothing
   
Rem tilpas kolonnebredde
    ActiveSheet.Columns.AutoFit
End Sub
Private Sub åbnXls(xls, fil)
    Set xls = CreateObject("Excel.application")
    With xls
        .Workbooks.Open fil
    End With
End Sub

jeg prøver lige

ok

Hej,

Ideen var at den skulle tage f.eks ark 1 - celle A1, og se i ark 2 om værdien var der. Dvs. den skal se hele ark 2 igennem.
Efterfølgende skal den tage næste værdi i ark 1 og se om værdien eksistere i ark 2 - osv...
Den macro du har skrvet - kigger den ikke blot om ark1.A1 = ark2=A1.

På forhånd tak