MsgBox mit Countdown schließen
Tim
ich habe mal wieder eine Frage an die Experten:
1) Ich möchte gerne eine MessageBox mit einem mehrzeiligen Text anzeigen.
2) Die MessageBox soll zudem einen Countdown enthalten, d.h. die Sekunden im Text sollen rückwärts bis Null herunter zählen.
3) Nach Ablauf des Countdowns soll sich die MessageBox zusammen mit der aktiven Arbeitsmappe automatisch schließen.
Bislang habe ich folgenden Code, weiss aber nicht, wie ich hier den Countdown einbauen könnte - kann mir jemand von Euch weiterhelfen ?
Sub OutdatedVersion_Msg()
Const bytZeit As Byte = 15 'time limit for automatic closure
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("Hello " & Worksheets(2).Range("I15") & " !" & Chr(10) & " " & Chr(10) _
_
& _
"TEXT ZEILE1" & Chr(10) & _
"TEXT ZEILE2" & Chr(10) & _
"For security reasons this file and message will close automatically" & Chr(10) & _
"in " & bytZeit & " seconds." & Chr(10) & _
"" & Chr(10) & _
"TEXT ZEILE5" & Space(10), bytZeit, "Outdated Version", vbCritical)
Set objWSH = Nothing
ActiveWorkbook.Close False
End Sub
VG und vielen Dank Euch im Voraus für jeden Tipp,
Tim
Anzeige