2 kolomen laten vergelijken en waardes verdelen in 3 andere kolomen

[rdwl]

ik heb een vba gemaakt die het volgende zou moeten doen:

ik heb kolom a en b hierin staan namen
in A namen die al bestaan en in B namen die nieuw zijn.
nu wil ik graag hebben dat ernaast de namen die in beide rijen voorkomen staan in de rij hiernaast de namen die wel in kolom a voorkomen maar niet in b omdat deze dan verwijderd moeten worden.
in de rij hiernaast wil ik de namen weergeven die wel in B staan maar niet in A.

nu heb ik het volgende geschreven:
(ik ga er vanuit dat de selectie dat de selectie geselecteerd is in kolom a aangezien hij anders zou blijven doorlopen)

Sub bestaande_namen()
Dim CompareRange As Variant, x As Variant, y As Variant
Set CompareRange = Range("B1:B700")
For Each x In Selection
For Each y In CompareRange
If x.Value = y.Value Then x.Offset(2, 4) = x
Next y
Next x
End Sub


Sub verwijderen_namen()
Dim CompareRange As Variant, x As Variant, y As Variant
Set CompareRange = Range("B1:B700")
For Each x In Selection
For Each y In CompareRange
If x.Value = Not y.Value Then x.Offset(2, 5) = x
Next y
Next x
End Sub



Sub nieuwe_namen()
Dim CompareRange As Variant, x As Variant, y As Variant
Set CompareRange = Range("B1:B700")
For Each x In Selection
For Each y In CompareRange
If Not x.Value = y.Value Then x.Offset(2, 6) = x
Next y
Next x
End Sub

het eerste gedeelte werkt perfect er komt een lijst met zeg maar de namen die in kolom a en B staan alleen de rest dus de vergelijkingen tussen A en B en B en A werken niet

weet iemand wat er mis gaat?

 

[Wigi]

Waarom gebruik je geen AANTAL.ALS functie ipv. een aantal van de lussen?

COUNTIF in het Engels (VBA).

Wigi

PS: als je leestekens gebruikt, wordt jouw vraag veel beter leesbaar en zou je wel eens meer reactie kunnen krijgen