Worksheet_Change Werte mit der Liste vergleichen

Question

Ich versuche, cheesheet_change als Datenüberprüfung zu verwenden. Ich möchte sicherstellen, Werte eingefügt in Zellen Bereich a1: a3000 entsprechen einer Liste von Werten aus einer Liste. Ich fürchte, ich bin verloren und weiß nicht weiter.

Hier ist, was ich bisher

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim Rang As Range 
Set Rang = Worksheets("DATA INPUT SHEET").Range("A1:A3000") 
    If Intersect(Target, Rang) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub 

Was ich nach dem Vorbild der wäre hinzufügen möchten:

If Target.Value <> Worksheets("Worksheet 2".Range("B2:B7") Then 
MsgBox "The value you entered is not valid" 

Hat jemand irgendwelche Vorschläge?

Answer 1

Sie würden hinzufügen:

If IsError(Application.Match(target.value, Worksheets("Worksheet 2").Range("B2:B7"), 0)) Then 
    MsgBox "The value you entered is not valid" 
End If 

wo Sie den Code möchten.