Herbers Excel-Forum - das Archiv

User muß textbox mit "ENTER" verlassen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox UserForm
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
Excel-Beispiele zum Thema "User muß textbox mit "ENTER" verlassen"
Text aus Textbox in Variable Namen von TextBoxes hochzählen
Text aus Textbox in Zellen aufteilen Nichtnumerische Eingaben in TextBox verhindern
Text aus UserForm-Textbox in Variable einlesen Nur Buchstaben in eine UserForm-TextBox
TextBoxes- und Label-Werte in Abhängigkeit verändern Nur AJM in TextBox akzeptieren und Anzahl zählen
Eingabelänge in TextBox begrenzen und Werte aus Liste übernehmen Artikel aus Auswahltextbox in Sammeltextbox verschieben