Habe von Hajo folgendes Makro nachgebaut und funktioniert leider nur Teilweise.Wird eine Identische Nummer eingegeben, so bekomm ich zwar den Himweis, bei bestätigen auf OK wird der Focus jedoch nicht gesetzt. Klick ich ein weiteres mal auf den Eintragsbutton, so Schreibt es mir die Werte trotzdem in die Zelle obwohl diese schon mal vorhanden sind, Was mach ich hier falsch!!!
Private Sub txt_znr_AfterUpdate()
Dim Bereich As Range
Dim Letzte As Long
If [e65536] = "" Then
Letzte = [e65536].End(xlUp).Row
Else
Letzte = 65536
End If
Set Bereich = ActiveSheet.Range("e2:e" & Letzte) _
.Find(txt_znr, lookat:=xlWhole)
If Bereich Is Nothing Then Exit Sub
MsgBox "Nummer '" & txt_znr & "' schon vorhanden!"
If vbOK = True Then
txt_znr.SetFocus
End If
End Sub