verstehe folgende Zeilen so, das auf Numerisch geprüft wird:
Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not IsNumeric(ChrW(KeyAscii)) Then KeyAscii = 0
End Sub
mit dem hier übertrage ich nach dem ich Return gedrückt habe die Daten in den Range:Private Sub TextBox7_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = vbKeyReturn Then
On Error Resume Next
Tabelle2.Range("C7").Value = Me.TextBox7
Me.TextBox8.SetFocus ' Sprung in Monatsdatum
End If
End Sub
Nun folgendes was abgeändert werden muss:gebe ich nichts in die Textbox7 ein und bestätige mit Return, dann ist im RangeC7 zwar nix zu sehen,prüfe ich aber die Zelle mit Istleer(C7) erhalte ich falsch
Meine Fragen nun:Warum ist das so? Was mache ich denn dagegen?
Ich brauche später falls dort mit leerer TextBox Return gedrückt wird ein "0" in C7
(gut ich könnte die direkt reinschreiben wenn ich die TB7 auf "" Prüfe)
Matze