Manchmal ist es nützlich, während des Arbeitens mit Excel Informationen angezeigt zu bekommen. Doch leider müssen diese Info-Boxen ("MsgBox") stets mit OK bestätigt werden, bevor man weiterarbeiten kann. Mit diesem kleinen Makro erzeugen Sie Meldungen auf den Bildschirm, die nach einer eingestellten Zeit von allein wieder verschwinden.
Tragen Sie dieses Makro in ein Modulblatt ein:
Sub MsgBox_automatisch_schliessen()
Dim WshShell
Dim intText As Integer
Set WshShell = CreateObject("WScript.Shell")
intText = WshShell.Popup(Day(Date) & "." & Month(Month(Date)) & "." & _
Year(Date) & Chr(13), 3, "Systemdatum", vbSystemModal)
End Sub
In diesem Beispiel wird für 3 Sekunden das aktuelle Datum angezeigt.