Ich würde gern per makro eine Textbox im Userform anwählen, damit man dort etwas reinschreiben kann. Ich habe gedacht das würde so gehn: TextBox7.Select
Aber das geht nicht.
Weiß es jemand besser!!
Danke
Heinz
Private Sub UserForm_Activate()
TextBox7.SetFocus
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox "Textbox wurde verlassen!"
End Sub
Gruß MatthiasOption Explicit
Dim EnterPressed As Boolean
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = EnterPressed
EnterPressed = False
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
EnterPressed = False
If KeyCode = 13 Then
EnterPressed = True
MsgBox "ENTER"
'hier dein Makro für Enter!!
End If
End Sub
Gruß Matthias
Private Sub TextBox6_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
EnterPressed = False
If KeyCode = 13 Then
EnterPressed = True
TextBox7.Visible = True
--> TextBox7.SetFocus (DAS HIER FUNKTIONIERT NICHT MEHR)
End If
End Sub
Private Sub TextBox6_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
With TextBox7
.Visible = True
.SetFocus
End With
End If
End Sub
Gruß Matthias