ich habe eine TextBox1 in der ich Suchbegriffe eingebe.
Nun möchte ich, wenn ein Suchbegriff eingegeben wurde, dass ich
mit der Tab-Taste den CommandButton1 aktiviere,
und dann mit Enter den starten kann.
Kennt da jemand eine Lösung ?
Gruß
F.R.
aber in den Eigenschaften der TextBox finde ich keinen Eintrag TabIndex
Wenn ich die Eingabe in der TextBox getätigt habe,
kann ich dann durch Enter den in dem CommandButton hinterlegten Befehl ausführen ?
Option Explicit
Private Sub CommandButton1_Click()
MsgBox "test"
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then Call CommandButton1_Click
End Sub
VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel
Code erstellt und getestet in Office 14
Private Sub Workbook_Open()
With Worksheets(1)
.OptionButton2.BackColor = RGB(112, 128, 144)
.OptionButton1.Value = True
.OptionButton1.BackColor = RGB(255, 165, 79)
End With
End Sub
Option Explicit
Private Sub Workbook_Open()
Call Worksheets("Suche").TextBox1.Activate
End Sub
With Worksheets(1)
.OptionButton2.BackColor = RGB(112, 128, 144)
.OptionButton1.Value = True
.OptionButton1.BackColor = RGB(255, 165, 79)
.TextBox1.Activate
End With