...habe folgende Textbox40, gebe ich dort nix ein und bestätige mit Enter,
wird (und das soll NICHT sein) in Tabelle2.Range("B5").Value = Me.TextBox40
trotzdem was reingeschrieben. Wenn ich im Tabelle2 die Zelle B5 mit =Istleer("b5") prüfe, erhalte ich FALSCH anstelle von WAHR.
Private Sub TextBox40_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
On Error Resume Next
Tabelle2.Range("B5").Value = Me.TextBox40
Me.TextBox41.SetFocus ' Sprung in Monatsdatum
End If
End Sub
Was muss ich tun um dies zu verhindern?Matze
Kopfkratz, grübel ,...denk...RAUCH ohne Ende