Textbox1 mit Enter leeren und neue Einga
06.03.2020 09:40:56
Michael
ich habe Textbox1 bei welchem mit Enter eine Aktion gestartet wird und wieder geleert wird.
Nun möchte ich aber auch in der Textbox1 den Cursor setzen. Ich habe es mit TextBox1.SetFocus
probiert aber er springt zum nächsten Command Button. Die Aktion sieht wie folgt aus:
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.TextBox1
If .Value = "" Then
ElseIf IsNumeric(.Value) Then
If TextBox2.Value = "" Then
TextBox2 = .Value
Else
TextBox2 = CDbl(TextBox2.Value) + CDbl(.Value)
End If
Else
MsgBox "Eingabe in Textbox1 muss nummerisch sein!", _
vbOKOnly + vbInformation, "prüfung Eingabe in Textbox1"
Cancel = True
End If
End With
End Sub
VG
Michael
Anzeige