ich habe eine Userform
Textbox1 =Uhrzeitvon
Textbox2=Uhrzeitvon
Listbox = Pause
Hinter die Uhrzeit habe ich folgendes hinterlegt
Private Sub Uhrzeitvon_AfterUpdate()
Dim str As String
Uhrzeitvon.Text = Format(Uhrzeitvon.Text, "00\:00")
str = Uhrzeitvon.Value
If Len(str) 5 Or Mid(str, 3, 1) ":" Or _
Val(Right(str, 2)) > 59 Or Val(Left(str, 2)) > 23 Or _
Not IsNumeric(Left(str, 1)) Or Not IsNumeric(Mid(str, 2, 1)) Or Not IsNumeric(Mid(str, _
4, 1)) Or Not IsNumeric(Right(str, 1)) Then
MsgBox "falsche Uhrzeit, Eingabe z.B. 23:15"
Uhrzeitvon.Value = ""
End If
End Sub
Jetzt hätte ich zwei Fragen:
1. Ich möchte gerne in TextBox 3 eine Berechnung in Industrieminuten. Also TextBox 2 - Textbox1- istbox Pause.
Wie würde das gehen, denn wir haben Schichten von 16:30 Uhr - 02:00 Uhr?
2. Kann man was einbauen, wenn sich jemand vertippt. z.b.
ist die Zeit von Später als Früher Also so z.b.
19:39 - 12:44
Wäre echt nett, wen mir jemand helfen könnte.
Danke