TextBox ohne Inhalt - Eingabe mit Enter
22.10.2013 20:06:12
Matze
...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
Matze
Kopfkratz, grübel ,...denk...RAUCH ohne Ende
Anzeige