Kolommen vergelijken in Excel

[Klikmaar]

Ik heb een excelsheet met 2 kolommen A + B met ongeveer 400 gegevens.
De gegevens in kolom A wil ik zoeken in kolom B en als deze gevonden is de cel een kleur geven en weer verder zoeken tot alle 400 gegevens in kolom A doorzocht zijn.

Dit wil ik het liefste in een Macro maken.

 

[gast0667]

Weet niet exact of onderstaande voor je werkt (je hebt namelijk geen voorbeeld bestand geplaatst). Maar volgens mij kan je het met onderstaande code wel proberen:

vStartRijA = 1
vStartRijB = 1

Do

Do
     if worksheets("BladNaam").range("B" & vStartRijB).value = worksheets("BladNaam").range("A" & vStartRijA).value then
          worksheets("BladNaam").range("B" & vStartRijB).Interior.Color = 65535  'Bijv. geel
          vStartRijB = vStartRijB + 1
     else
           vStartRijB = vStartRijB + 1
     end if
loop until vStartRijB = 401     'Dit is de laatste lege rij van jou in kolom B

vStartRijB = 1
vStartRijA = vStartRijA + 1
loop until vStartRijA = 401     'Dit is de laatste lege rij van jou in kolom A

 

[Wigi]

Of:

Sub zetformule()
    With ActiveSheet.UsedRange
        .Columns(1).Offset(, 2).Formula = "=NOT(ISERROR(MATCH(RC[-2]," & .Columns(2).SpecialCells(2).Address(, , xlR1C1) & ",0)))"
    End With
End Sub

Wigi

 

[snb]

of

Sub tst2()
    sq = Columns(2).SpecialCells(2)
    c0 = Join(WorksheetFunction.Transpose(Columns(1).SpecialCells(2)), "|")
    For j = 1 To UBound(sq)
      If InStr("|" & c0 & "|", "|" & sq(j, 1) & "|") > 0 Then c1 = c1 & "$B$" & j & ","
    Next
    Range(Left(c1, Len(c1) - 1)).Interior.ColorIndex = 5
End Sub