In diesem Beispiel wird die Statusleistenmeldung auf "Please be patient..." gesetzt, bevor die Arbeitsmappe LARGE.XLS geöffnet wird. Dann wird die Standardmeldung wiederhergestellt.
oldStatusBar = Application.DisplayStatusBar Application.DisplayStatusBar = True Application.StatusBar = "Please be patient..." Workbooks.Open filename:="LARGE.XLS" Application.StatusBar = False Application.DisplayStatusBar = oldStatusBar