Ich möchte, wenn man in der Textbox1(Userform) Tab drückt, Textbox2 sichtbar machen und focusieren. Ich habe hier einen Code aber irgendwas stimmt nicht:
Option Explicit
Dim TabPressed As Boolean
Dim WS As Worksheet
Private Sub Box1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Cancel = TabPressed
If KeyCode = 9 Then
TabPressed = False
With usr.Box2
.Visible = True
.SetFocus
End With
End If
End Sub
Das Problem ist, dass zwar alles mit der Box 2 klappt nur drückt es dann sozusagen noch mal Tab und es entsteht ein Freiraum in der Box2
Entdeckt jemand den Fehler?
Danke Heinz