VBA - markering af data

Vil du have priserne til at overskrive eksisterende priser, i Ark1, ud for det tilhørende varenummer ??

Sub Test1()
    Data1 = Worksheets("Ark1").Range("A1:B" & Worksheets("Ark1").Range("A65536").End(xlUp).Row)
    Data2 = Selection
    For i = 1 To UBound(Data2)
        For x = 1 To UBound(Data1)
            If Data1(x, 1) = Data2(i, 1) Then
                Data1(x, 2) = Data2(i, 2)
                Exit For
            End If
        Next
    Next
Worksheets("Ark1").Range("A1:B" & Worksheets("Ark1").Range("A65536").End(xlUp).Row) = Data1
End Sub

Hej Kabbak

Løsningen virker fint - og værdierne overskrives også. Men kan der indbygges således, at linier der får overskrevet en værdi på Ark1 (hvor varenummeret findes på Ark2) bliver markeret f.eks. at linjen farves gul ?

/hpo

Sub Test1()
    Data1 = Worksheets("Ark1").Range("A1:B" & Worksheets("Ark1").Range("A65536").End(xlUp).Row)
    Data2 = Selection
    For i = 1 To UBound(Data2)
        For x = 1 To UBound(Data1)
            If (Data1(x, 1) = Data2(i, 1)) And (Data1(x, 2) <> Data2(i, 2)) Then
                Data1(x, 2) = Data2(i, 2)
                Worksheets("Ark1").Range("A" & x & ":B" & x).Interior.ColorIndex = 6  ' gul
                Exit For
            End If
        Next
    Next
    Worksheets("Ark1").Range("A1:B" & Worksheets("Ark1").Range("A65536").End(xlUp).Row) = Data1
End Sub

et svar ;-))