Hallo zusammen,

ich versuche gerade ein Programm in Excel zu schreiben, welches nach 5 Minuten einen bestimmten Wert überprüft und je nach Bedingung eine Prozedur ausführt bzw. das Programm endet. Durch Hilfe in diesem Forum habe ich bereits den Countdown programmieren können.

Nachdem der Countdown null erreicht soll sich eine Userform öffnen, die den Nutzer auffordert einen Wert einzugeben. Ist der Wert <= 8 so kann das Programm geschlossen werden. Ist der Wert jedoch >= 8 soll der Countdown ein weiteres Mal starten. Dieses Mal aber 10 Minuten (Schleife - also 5 Minuten + 5 Minuten) bevor der Wert erneut überprüft und in das UserForm eingegeben wird. Somit soll sich immer, wenn der Wert nicht <= 8 ist, der Countdown um 5 Minuten lverlängern (5min, 10min, 15min, 20min, 25min usw.), bis der Wert schließlich <= 8 anzeigt. Ausgelöst werden soll der Countdown durch das OK-klicken einer Messagebox.

Folgenden Code habe ich bereits:

Tabelle:

Private Sub CommandStarten_Click()

Starten

End Sub

Modul:

Public Declare Sub Sleep Lib "kernel32" (ByVal Milliseconds As Long)

Sub Starten()

Dim datStart As Date, datEnde As Date
     
    datStart = Now
    datEnde = datStart + TimeValue("00:00:10")
     
    Do While Now <= datEnde
        Sleep (1000)
        Tabelle1.TextBox1 = Format(datEnde - Now, "Hh:Nn:Ss")
        DoEvents
    Loop
    
If Tabelle1.TextBox1.Text = TimeValue("00:00:01") Or 0 Then
    UserForm1.Show
End If
    
End Sub

UserForm:

Private Sub CommandButtonPruefenWert_Click()
Dim messwert As Integer
Dim a As String
Dim b As String

messwert = TextBoxEingabeMesswert
Tabelle2.Range("A2").Value = TextBoxEingabeMesswert.Text
TextBoxEingabeMesswert.Text = ""

If messwert <= "8" Then
    a = MsgBox("Ende! Das Programm wird geschlossen.", vbOKOnly, "Beenden")
Else
    b = MsgBox("Wiederholung!", vbOKOnly, "Wiederholen")
End If

'  If a = vbOK Then ThisWorkbook.Close
If b = vbOK Then SpuelungStarten

Ich freue mich, wenn mir jemand helfen kann.

Gerne auch mit einen Beispielcode.

Grüße