Doppelter Eintrag,die zweite
04.11.2002 08:42:48
Harald
Dieses Makro dient zur Eingabe in ein Tabellenblatt.Wenn in Spalte E ein gleicher Eintrag vorhanden ist,erscheint ein Hinweis mittels Msgbox.klickt man im Dialog-Msgbox auf Ok, so soll das Textfeld-txt_znr geleert werden und den Focus erhalten.
Bis zum erscheinen der Msgbox funktioniert ja alles, aber der Focus wird nicht gesetzt.
Was mache 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