Zoeken en inkleuren

[danny147]

Beste,

Heb 2 kolommen, 1 op Blad1 en 1 op Blad2
Deze moeten met elkaar vergeleken worden
Bij het niet vinden van de overeenkomst moet deze cel gekleurd worden in Blad1
Heb onderstaande code geprobeerd maar lukt niet

Sub Zoeken_en_inkleuren()
    Dim CompareRange As Variant, x As Variant, y As Variant
    Set CompareRange = Worksheets("Blad1").Range("A1:A1000")

    For Each x In Worksheets("Blad2").Range("A1:A1000")
        For Each y In CompareRange
            If x <> y Then x.Interior.Color = 5296274
        Next y
    Next x
End Sub

 

[HSV]

Hallo Danny,

Sub Zoeken_en_inkleuren()
Dim cl As Range
 For Each cl In Sheets(1).Cells(3, 1).CurrentRegion
  If IsError(Application.Match(cl, Sheets(2).Cells(3, 1).CurrentRegion, 0)) Then cl.Interior.Color = 5296274
 Next cl
End Sub

 

[danny147]

Bedankt Harry voor de oplossing :thumb: