Registriert seit: 01.04.2020
Version(en): 2007
Hallo
ich habe eine Userform mit 4 Textboxen und 2 Commandbuttons und möchte bei Aufruf der UF folgendes tun:
Sofort in eine Textbox schreiben können, dabei
mit Tab durch die Textboxen springen
mit Enter jederzeit den einen Commandbutton betätigen.
Was musss man da einstellen?
LG Raoul
Registriert seit: 02.05.2018
Version(en): Excel 365 & 2016
Ahoi!
Code:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
CommandButton1_Click
End If
End Sub
Schöne Grüße
Berni
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
Hallo Raoul.
(04.04.2020, 22:49)Raoul21 schrieb: Sofort in eine Textbox schreiben können, dabei
- Entferne den SetFocus-Code
- Ändere die Aktivierreihenfolge der Teile entsprechend
(04.04.2020, 22:49)Raoul21 schrieb: mit Enter jederzeit den einen Commandbutton betätigen.
Setze die Default-Eigenschaft des entsprechenden Buttons auf True.
Also alles ohne zusätzlichen Code.
Gruß Uwe
Registriert seit: 01.04.2020
Version(en): 2007
Funktioniert perfekt. Und so einfach.
Vielen Dank, Uwe.
Und danke auch MisterBurns.
bye
