Textbox mit Enter
22.11.2014 17:06:33
Stefan
ich stehe gerade auf dem Schlauch.
Habe ein Code den ich über eine UF mit einem Commandbutton ausführe.
Nun möchte ich zusätzlich noch erreichen das ich den Code mit drücken der Entertaste nach Eingabe des Textes in Textbox1 ausgeführt wird.
Private Sub TextBox1_Change()
If TextBox1 = PASS_WORD Then
ActiveWorkbook.Worksheets("Tabelle3").Visible = True
Unload UserForm1
Else
ActiveWorkbook.Worksheets("Tabelle3").Visible = False
Unload UserForm1
End If
End Sub
Gruß
Stefan
Anzeige