Springen zwischen Textboxeb
12.06.2017 20:42:41
Thomas
Schlage mich seit geraumer Zeit mit einem Problem rum, welches ich einfach nicht gelöst bekomme. Vielleicht könnt ihr mir helfen.
Ich habe in Excel ein Arbeitsblatt, in welchem ich diverse TextBoxen eingefügt habe, nennen wir sie TextBox1 - TextBox5. Für das Springen TextBox1 zu TextBox2, etc. benutze ich folgenden Code:
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Or KeyCode = vbKeyTab And Shift = 0 Then
TextBox2.Activate
End If
End Sub
Nun gibt es aber einen Schönheitsfehler, welcher mich ziemlich stört:
Wenn ich mit Tab oder Enter von TextBox1 zu TextBox2 springe, dann blinkt die TextBox2 kurz auf, nachdem der Sprung von TextBox1 zu TextBox2 erfolgt ist (beim Springen von TexBox1 zu TextBox2 in einer Userform tritt dieses Blinken nicht auf).
Gibt es eine Möglichkeit, einen Zusatz im Code, welches dieses störende Blinken beim Aktivieren der TextBox2 nach dem Sprung verhindert?
Vielen Dank für eure Hilfe.
Thomas
Anzeige