Textbox Enter

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

Betrifft: Textbox Enter
von: Thomas
Geschrieben am: 07.11.2015 21:44:16

Hallo Excelfreunde,
ich löse innerhalb einer Userform mit einem enter in einer textbox ein such makro aus. Danach springt der cursor überall hin wohin man will, ich versuche schon seid stunden den cursor dazu zu überreden das er im textfeld1 bleibt. Es klappt nicht mit textfeld1.SetFocus und auch nicht über ein clickereignis in einem ausgeblendeten Button. Kennt jemand ein trick?
liebe grüsse thomas

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'** Abschließen der Suchbox mit Enter führt Suchfunktion aus
If KeyCode = 13 Then
'** Makro aufrufen
'UserForm2.CommandButton1 = True
CommandButton1_Click
TextBox1.SetFocus
End If
End Sub

Bild

Betrifft: AW: Textbox Enter
von: Sepp
Geschrieben am: 07.11.2015 21:54:44
Hallo Thomas,
eine Möglichkeit.

Option Explicit

Private cbolCancel As Boolean

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = cbolCancel
End Sub

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'** Abschließen der Suchbox mit Enter führt Suchfunktion aus
If KeyCode = 13 Then
  '** Makro aufrufen
  'UserForm2.CommandButton1 = True
  
  CommandButton1_Click
  
  
  cbolCancel = True
Else
  cbolCancel = False
End If


End Sub


Gruß Sepp


Bild

Betrifft: unglaublich, besten dank an sepp
von: Thomas
Geschrieben am: 07.11.2015 23:04:18
Hallo Sepp,
das ist echt cool so etwas findet man im ganzen netz nicht ( ich jedenfalls nicht).
hab recht vielen dank für deine hilfe
liebe grüsse thomas

Bild

Betrifft: AW: unglaublich, besten dank an sepp
von: Sepp
Geschrieben am: 07.11.2015 23:09:39
Hallo Thomas,
freut mich, dass es klappt.
Du solltest den Code noch so anpassen, sonnst kommst du nicht mehr aus der TextBox raus.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = cbolCancel
cbolCancel = False
End Sub

Gruß Sepp


Bild

Betrifft: Vielen dank an Sepp
von: Thomas
Geschrieben am: 07.11.2015 23:41:13
Hallo Sepp,
besten dank für den tipp.
Ich habe mich so darüber gefreut das ich es noch gar nicht bemerkt hatte.
Habe es geändert und es passt.
hab recht vielen dank nochmal.
liebe grüsse thomas

Bild

Betrifft: Vielen dank an Sepp
von: Thomas
Geschrieben am: 07.11.2015 23:46:05
Hallo Sepp,
besten dank für den tipp.
Ich habe mich so darüber gefreut das ich es noch gar nicht bemerkt hatte.
Habe es geändert und es passt.
hab recht vielen dank nochmal.
liebe grüsse thomas

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Textbox Enter"