Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Abfrageschleife

Betrifft: Abfrageschleife von: Langmantl
Geschrieben am: 03.11.2014 09:22:19

Hallo, habe folgende Situation: In meinem Erstellten Userform wird eine Uhrzeit in die Textbox8 eingegeben, diese ist mit der Variablen v1 as String definiert.
Er soll jetzt folgendes Prüfen: Ist in der Tabelle1 das in Zelle A5 eingegebene Datum ein Montag bis Donnerstag, dann darf die eingegebene Zeit nicht vor 15:00 Uhr sein oder ist das Datum ein Freitag, dann darf die Eingegebene Zeit nicht vor 13:00 sein, sonst egal. Wenn der Wert False ist, also Montag-Freitag, soll bei Eingabe vor der jeweiligen Zeit eine MSGBox mit Fehlermeldung, angezeigt werden und der eingegebene Wert in Textbox8 soll geleert werden und neu eingegeben werden, erneute Prüfung bis Wert wahr ist.
Wie ist der Code

  

Betrifft: AW: Abfrageschleife von: {Boris}
Geschrieben am: 03.11.2014 09:44:01

Hi,

auf die Schnelle - geprüft wird im Beispiel beim Click auf den CommandButton1:

Option Explicit

Private Sub CommandButton1_Click()
Dim v1 As String, datTest As Date, lngDay As Long
v1 = Me.TextBox8.Text
On Error GoTo err_handler
datTest = CDate(v1)
lngDay = Weekday(Worksheets("Tabelle1").Range("A5"), 2)
If lngDay < 5 Then
    If datTest < "15:00" Then
        MsgBox "Eingabe erst ab 15 Uhr möglich", , "Hinweis..."
        Exit Sub
    End If
ElseIf lngDay = 5 Then
    If datTest < "13:00" Then
        MsgBox "Eingabe erst ab 13 Uhr möglich", , "Hinweis..."
        Exit Sub
    End If
End If
Exit Sub
err_handler:
MsgBox "Das ist keine bekannte Uhrzeit", , "Falscher Eintrag..."
End Sub

VG, Boris