User muß textbox mit "ENTER" verlassen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm TextBox MsgBox
Bild

Betrifft: User muß textbox mit "ENTER" verlassen
von: ray
Geschrieben am: 17.02.2005 09:27:41
Hallo,
wie kann ich erzwingen, daß der User nach Eingabe in der Textbox1, diese nur mit ENTER und nicht mit TAB oder einfach WOANDERSmausKlick verlassen kann?
Viele Grüße aus dem immer noch zu kalten Hamburg, diesig 5 Grad.
ray

Bild

Betrifft: AW: User muß textbox mit "ENTER" verlassen
von: Heiko S.
Geschrieben am: 17.02.2005 11:16:25
Hallo Ray,
spiele mal diesen Code in das Codefenster deines Userforms, ist zwar nicht schön aber er funktioniert.
Option Explicit
Public blnEnter As Boolean

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If blnEnter = False Then
        Cancel = True
    Else
        blnEnter = False
    End If
End Sub


Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    If KeyCode = vbKeyReturn Then
        MsgBox TextBox1.Value
        blnEnter = True
    End If
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Bild

Betrifft: AW: User muß textbox mit "ENTER" verlassen
von: ray
Geschrieben am: 17.02.2005 13:13:08
Hallo Heiko,
finde ich gar nicht so kompliziert. Danke für die Lösung, funzt einwandfrei.
Gruß Ray
Bild

Betrifft: AW: User muß textbox mit "ENTER" verlassen
von: Roland Hochhäuser
Geschrieben am: 17.02.2005 11:17:22
Hallo ray,
versuch das mal:
Option Explicit
Dim booCheck As Boolean

Private Sub TextBox1_Enter()
booCheck = True
End Sub


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If booCheck Then
TextBox1.SetFocus
Cancel = True
End If
End Sub


Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode <> 13 Then
MsgBox KeyCode
booCheck = True
Else
booCheck = False
End If
End Sub

Gruß Roland aus Berlin (etwas klarer, aber dafür kälter)
Bild

Betrifft: AW: User muß textbox mit "ENTER" verlassen
von: ray
Geschrieben am: 17.02.2005 13:14:46
Hallo Roland,
vielen Dank, funzt auch einwandfrei. Grüße die Hauptstadt aus der schönsten Stadt...
ray
 Bild

Beiträge aus den Excel-Beispielen zum Thema "User muß textbox mit "ENTER" verlassen"