Textbox: Cursor soll in gleicher Textbox bleiben

Textbox: Cursor soll in gleicher Textbox bleiben - Druckversion

+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Textbox: Cursor soll in gleicher Textbox bleiben (/thread-28184.html)

Textbox: Cursor soll in gleicher Textbox bleiben - StefKe - 23.05.2022

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

RE: Textbox: Cursor soll in gleicher Textbox bleiben - RPP63 - 23.05.2022

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

Gruß Ralf

RE: Textbox: Cursor soll in gleicher Textbox bleiben - StefKe - 23.05.2022

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