Textbox: Cursor soll in gleicher Textbox bleiben

[StefKe]

Hallo in die Runde, ich möchte das bei einem Eingabefehler in eine Textbox nach "Enter" der Cursor in der betroffenen Textbox verbleibt:

Code:

Private Sub TextBox5_AfterUpdate()
    ListBox1.Visible = False
    With TextBox5
        If Len(.Value) <> 4 Then
            Errormessage ("die Kontonummer besteht aus 4 Ziffern")
            .SetFocus
            Exit Sub
        End If
    End With
End Sub

tut es aber nicht. Wo liegt der Fehler?

Danke
Stefan

[RPP63]

Moin!
Was ist Errormessage()?
Nimm das _Exit-Event und setze Cancel nach Bedarf!

Gruß Ralf

[StefKe]

Danke, ich hatte das falsche Ereignis gewählt:

Code:

Private Sub TextBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    ListBox1.Visible = False
    With TextBox5
        If Len(.Value) <> 4 Then
            Cancel = True
            Errormessage ("die Kontonummer besteht aus 4 Ziffern")
            .SetFocus
            Exit Sub
        End If
    End With

End Sub

... dann erscheint bei "Cancel" keine Fehlermeldung :-)
Errormessage() ist ein Aufruf mit der Fehlermeldung als String.

Gruß
Stefan