Vergelijken celinhoud met een bereik vanuit een andere sheet

[Robert Smidt]

Beste helpmij'ers,

Ik ben op zoek naar een code in vba (Excel) waar ik zoek vanuit een actieve regel in kolom A in werkblad "Test" en dit wil vergelijken met de inhoud van celbereik A2 t/m A4 in werkblad "Data". Wanneer gevonden moet deze in de actieve regel in kolom b een vermelding maken van "Top".

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:N51")) Is Nothing Then

    Application.EnableEvents = False

    If Range("a" & Target.Row) = Sheets("Data").[a2:a4].Value Then Range("b" & Target.Row) = "Top"

    Application.EnableEvents = True
End If
End Sub

Alvast heel erg bedankt.

Groeten, Robert Smidt

 

[HSV]

Zo iets?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C2:N51")) Is Nothing Then
    Application.EnableEvents = False
  If not iserror(application.match(cells(Target.Row,1),Sheets("Data").[a2:a4],0)) Then cells(Target.Row,2) = "Top"
   Application.EnableEvents = True
End If
End Sub

 

[Robert Smidt]

Heel hartelijk bedankt,

Het werk perfect.

Groeten, Robert