Sammenligning av to ark

Min maskine går helt kold når jeg prøver at hente arket.
Er jeg den eneste???

Jeg får lastet den ned fra forskjellige PC..

Jeg kan sende deg filen på mail..

tommybak@netscape.net

Ok, her er en makro du kan køre for at sammenligne. Jeg har kun testet på dine egne data, så jeg ved ikke hvor hurtig den er på 10000 linier.
Sub Compare()
Dim TB1 As Worksheet, TB2 As Worksheet, TB3 As Worksheet
Dim Found As Range
Dim i%, y%
Dim check As Boolean
    Set TB1 = Workbooks("Gamle data").Worksheets(1)
    Set TB2 = Workbooks("Nye data").Worksheets(1)
    Set TB3 = Workbooks("Sammenligning").Worksheets(1)
    i = 1: y = 1

    Do Until IsEmpty(TB2.Cells(i, 1))
        Set Found = TB1.Columns(1).Find _
            (TB2.Cells(i, 1), lookat:=xlWhole)
        If Not Found Is Nothing Then check = (Found.Offset(0, 1) = TB2.Cells(i, 2)) Else check = True
        If Found Is Nothing Or check = False Then
            TB3.Cells(y, 1) = TB2.Cells(i, 1)
            If check = False Then TB3.Cells(y, 3) = Found.Offset(0, 1)
            TB3.Cells(y, 2) = TB2.Cells(i, 2)
            y = y + 1
        End If
        i = i + 1
    Loop
End Sub

jroi-> kan du få det til at virke ??

bak! Du er super! Takker så mye. Nå fungerer det og jeg beholder jobben min. hehe :-) Hvordan får jeg gitt deg poeng?

jroi

Selv tak. :-)

Du giver bare point til dette svar :-)

Luk lige spørgsmålet :-)