Mit folgendem code gebe ich über ein userform werte in eine excel-tabelle ein und lese sie gleichzeitig aus.
die Userform besitzt eine textbox zum eingeben, 5 labels zum auslesen und ein commandbutton zum löschen der werte.
Ich schaffe es nicht nach Bestätigen eines eingabewerts durch Enter den Focus in der Textbox zu lassen.
Der Focus springt automatisch auf den commandbutton.
Wer weiss Rat ? Mit SetFocus klappt es nicht !!!
Gruss, walcarre
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn And TextBox1 <> "" Then
If Sheets("Feuil1").Range("J65536").End(xlUp).Offset(1, 0).Row < 6 Then
Cells(6, 10) = Me.TextBox1
Me.TextBox1 = ""
Else
Sheets("Feuil1").Cells(Range("J65536").End(xlUp).Offset(1, 0).Row, 10) = Me.TextBox1
Me.TextBox1 = ""
End If
End If
Me.Label1.Caption = Sheets("Feuil1").Range("J6")
Me.Label2.Caption = Sheets("Feuil1").Range("J7")
Me.Label3.Caption = Sheets("Feuil1").Range("J8")
Me.Label4.Caption = Sheets("Feuil1").Range("J9")
Me.Label5.Caption = Sheets("Feuil1").Range("J10")
End Sub