Meine Kristallkugel ist im Wochendurlaub...
28.02.2010 21:27:48
Ramses
Hallo
"...Wenn es wie Reiner schreibt so einfach wäre!!!.."
Ist es.
"...Eingabe 000605. .... 00:06:05, als..."
Meinen Kommentar dazu habe ich im betreff schon geschrieben.
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim myH As Long, myM As Long, myS As Long
Select Case Len(TextBox2)
Case 4
Select Case Left(TextBox2, 2)
Case 0 To 24
myH = Left(TextBox2, 2)
Case Else
MsgBox "Falsche Stundenzeit", vbOKOnly + vbCritical, "Fehler"
Cancel = True
Exit Sub
End Select
Select Case Right(TextBox2, 2)
Case 0 To 60
myM = Right(TextBox2, 2)
Case Else
MsgBox "Falsche Minutenangabe", vbOKOnly + vbCritical, "Fehler"
Cancel = True
Exit Sub
End Select
TextBox2 = Format(myH & ":" & myM, "hh:mm:ss")
Case 6
Select Case Left(TextBox2, 2)
Case 0 To 24
myH = Left(TextBox2, 2)
Case Else
MsgBox "Falsche Stundenzeit", vbOKOnly + vbCritical, "Fehler"
Cancel = True
Exit Sub
End Select
Select Case Mid(TextBox2, 3, 2)
Case 0 To 60
myM = Right(TextBox2, 2)
Case Else
MsgBox "Falsche Minutenangabe", vbOKOnly + vbCritical, "Fehler"
Cancel = True
Exit Sub
End Select
Select Case Right(TextBox2, 2)
Case 0 To 60
myS = Right(TextBox2, 2)
Case Else
MsgBox "Falsche Sekundenangabe", vbOKOnly + vbCritical, "Fehler"
Cancel = True
Exit Sub
End Select
TextBox2 = Format(myH & ":" & myM & ":" & myS, "hh:mm:ss")
Case Else
MsgBox "Eingabe entspricht nicht der Erwartung und kann nicht konvertiert werden", vbOKOnly + vbCritical, "Fehler"
Cancel = True
TextBox2 = ""
End Select
End Sub
Gruss Rainer