ich versuche ein Eingabe-Fenster öffnen zu lassen, bei dem der Anwender eine Zeit eingeben kann. Diese soll zwischen 6:00 Uhr und 22:00 Uhr sein, ansonsten soll das Programm eine ungültige Zeiteingabe melden.
Ich glaube ich müsste in der Zeile "Do Until IsDate(zeit)" noch Bedinungen zur Zeit hinzufügen, bin mir aber nicht sicher wie und mit welcher Syntax ich das tun muss.
Vielen Dank schon einmal im Voraus.
MfG vbAmateuer
Sub zeiteingabe()
zeit = InputBox("Anfangsuhrzeit eingeben:" & vbLf & "zwischen 6:00 und 22:00", "Zeiteingabe" _
_
, FormatDateTime(Time, vbShortTime))
Do Until IsDate(zeit)
zeit = InputBox("Eingegebene Zeit ist ungültig!" & vbLf _
& "Bitte Eingabe korrigieren:", , zeit)
Loop
' Eingabe auswerten
If zeit = "" Then
MsgBox "Benutzer hat Zeiteingabe abgebrochen!"
End
Else
MsgBox "Eingegebene Zeit: " & FormatDateTime(Time, vbShortTime)
End If
Range("AA5") = zeit
End Sub