Excel-Version
29.05.2004 11:01:47
Erich
Habe gestern von Matthias eine perfekten Code
bekommen.
Kann es sein das dieser unter Excel 97 nicht läuft ?
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Text = Replace(TextBox1.Text, ",", ":")
On Error GoTo Err
TextBox1.Value = FormatDateTime(TextBox1.Value, vbShortTime)
Exit Sub
Err:
MsgBox "Falsche Uhrzeit!"
Cancel = True
End Sub
Eine Antwort wäre prima.
Gruss Erich
Anzeige