Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

vba Variable in Zeit-Bereich

vba Variable in Zeit-Bereich
09.01.2017 13:48:50
vbAmateur
Hallo,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba Variable in Zeit-Bereich
09.01.2017 16:16:04
Michael
Hi,
versuch mal das:
Sub zeiteingabe()
Dim zeit As Variant
Dim ok As Boolean, ok2 As Boolean
zeit = FormatDateTime(Time, vbShortTime)
Do Until ok Or zeit = ""
zeit = InputBox("Anfangsuhrzeit eingeben:" & vbLf & _
"zwischen 6:00 und 22:00", "Zeiteingabe", _
zeit)
If IsDate(zeit) Then
If TimeValue(zeit) >= 0.25 Then ok = True Else ok = False: zeit = "06:00"
If TimeValue(zeit) 
Schöne Grüße,
Michael
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge