Hallo zusammen!
Ich möchte in Excel per VBA eine MsgBox anzeigen lassen, die nach einer bestimmten Zeit geschlossen wird. Wie ich bei google fand, ist das so ohne weiteresmit einer MsgBox nicht möglich. Ich fand zwei Alternativen über ein "Popup":
CreateObject("WScript.Shell").Popup "Test.", 2, "Test"
Const bytZeit As Byte = 10
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("Ich bin in " & bytZeit & " Sekunden verschwunden!" & Space(10), _
bytZeit, "gebe bekannt...", vbOKCancel + vbQuestion)
Set objWSH = Nothing
Bei beiden bekomme ich das Fenster angezeigt, es schließt sich jedoch nicht wieder. Woran kann das liegen, habt ihr noch eine andere Idee?
Vielen Dank
|