Zeiteingabe über Inputbox ohne den Doppelpunkt?
06.03.2004 20:21:12
Oliver S.
Folgendes möchte ich realiesieren und ich komme einfach nicht drauf. Ich möchte über eine Inputbox die Uhrzeit ohne den Doppelpunkt eingeben. Die eingegebene Zahl soll dann aber mit dem Doppelpunkt in eine Zelle geschrieben werden. Im Moment sieht mein Code so aus:
Sub Zeit_eingeben()
Dim Zeit As Variant
Dim Weitere_Abfrage As String
Zeit = InputBox("Startzeit:", , Format(Now, "hh:mm"))
If Zeit = "" Then Exit Sub
If IsDate(Zeit) = False Then
Beep
MsgBox "Keine gültige Zeitangabe!"
Exit Sub
Else
Weitere_Abfrage = 1
Range("B1") = Zeit
End If
If Weitere_Abfrage = 1 Then
Zeit = InputBox("Endzeit:", , Format(Now, "hh:mm"))
If Zeit = "" Then Exit Sub
If IsDate(Zeit) = False Then
Beep
MsgBox "Keine gültige Zeitangabe!"
Exit Sub
Else
Weitere_Abfrage = 0
Range("B2") = Zeit
End If
End If
End Sub
Wie muss das Format geändert werden, damit die Eingabe ohne Doppelpunkt, der Ausgabewert in der Zelle aber mit Doppelpunkt erscheint.
Danke Euch schon mal im Voraus,
Oliver