Habe in einer UF eine Listbox und mit der Textbox werden Werte in die Tabelle Data überträgt.
Sofern schon ein Wert vorhanden ist sollte die MsgBox kommen. Leider geht das nicht, obwohl ich den Code als Userform_activate habe.
Was mache ich hier falsch?
Private Sub Userform_activate(ByVal Target As Range)
If Not Intersect(Target, Range("E2:E5000")) Is Nothing And Target.Count = 1 Then
If Application.CountIf(Worksheets("Data").Range("E2:E5000"), Target.Value) > 1 Then _
MsgBox "Nummer existiert schon!"
End If
End Sub
Könnte jemand den Code evt. anschauen, warum es nicht funktioniert?
Danke schon im Voraus
Gruß
Max