ich probier jetzt schon eine ganze Weile rum, aber irgendwie bleibt der Focus nicht auf der Textbox.
Nach Enter soll der Focus wieder in der Textbox94 für den nächsten Eintrag stehen.
Was ist falsch und was muss ich ändern?
Hier mein Code:
Private Sub TextBox94_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
TextBox94.SetFocus
TextBox97.Visible = True
Label150.Visible = True
Label151.Visible = True
Label156.Visible = True
CommandButton37.Visible = True
Sheets("Grunddaten").Activate
Dim Loletzte As Long
Loletzte = Sheets("Grunddaten").Cells(Rows.Count, 8).End(xlUp).Row
Cells(Loletzte + 1, 6) = TextBox98
Cells(Loletzte + 1, 8) = TextBox95
Cells(Loletzte + 1, 7) = TextBox94
'Anzahl zu sendende Datensätze
[J1].Copy
Range("I1").PasteSpecial (xlPasteValues)
'Textbox leeren
TextBox94.Text = ""
With TextBox94
.Visible = True
.SetFocus
End With
End If
End Sub
Vielen Dank für jede Hilfe
Grüße
Gisela