Office-Fragen.de

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

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

Gruß Ralf

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

StefKe

RPP63

StefKe