Fehler abfangen
03.11.2005 13:42:43
Walter
habe folgendes Makro für das Abfangen von Text in der Datums-TextBox:
Private Sub TextBox5_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If IsNumeric(TextBox5) = False And TextBox5 <> "" Then
MsgBox " Sie dürfen nur Ziffern eingeben", _
vbCritical, "Error !!!"
TextBox5 = Left(TextBox5, Len(TextBox5) - 1)
' TextBox5 = "00.00.0000"
' TextBox5 = "00:00:00"
TextBox5.SetFocus
With TextBox5
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End Sub
Leider klappen beide Möglichkeiten nicht.
Hier mein Makro für die Textabfrage:
Private Sub TextBox5_AfterUpdate()
If TextBox5.Value = "" Then
TextBox30.Value = "00.00.0000"
TextBox5 = "00:00:00"
End If
Range("G9").Value = Format(TextBox5.Text, "mm-dd-yyyy")
TextBox5.Text = Range("G9").Value
Label11.Caption = Range("G12").Value 'Nutzd.Dauer in Tage
End Sub
Ich möchte nur wenn Text oder Falsches Zeichen eingegeben wurde das die Box erscheint, was muß ich hier ändern ?
Gruß Walter mb