Wenn Sie ein großes VBA-Makro / einen großen VBA-Code haben, der viele Minuten lang ausgeführt werden muss, können Sie den Cursor für den Zeitraum, in dem das Makro ausgeführt wird, in die Sanduhr oder den Wartecursor (je nach Systemeinstellung) ändern. Sobald das Makro abgeschlossen ist, kann der Cursor wieder auf den Standardcursor zurückgesetzt werden.
Dies ist ein Beispielcode, der zeigt, wie Sie den Cursor ändern können.
Option explizit
Untermakro1()
Application.Cursor = xlWait
‘Hier codieren
Application.Cursor = xlDefault End Sub
- Nach den dim-Anweisungen (dieser Beispielcode hat noch keine) setzen wir Application.Cursor = xlWait am Anfang des Codes.
- Dann können Sie den Code einfügen, den Sie zum Ausführen benötigen. Wenn Sie mehrere Subs / Prozeduren aufrufen müssen, können Sie dies hier tun oder einfach den gesamten Code hier eingeben.
- Dann müssen Sie den Cursor kurz vor der End Sub-Anweisung auf den Standardwert zurücksetzen. Wir tun dies mit der Linie Application.Cursor = xlDefault
- Sie können alle anderen Anweisungen, die Sie benötigen, hinzufügen, wie Application.ScreenUpdating = FalseoderApplication.DisplayAlerts = Falsezusammen mit Application.Cursor = xlWaitStellungnahme. Ebenso können Sie einschließen Application.ScreenUpdating =True oder Application.DisplayAlerts = True zusammen mit Application.Cursor = xlDefaultStellungnahme.
- Um diesen Code zu kopieren, drücken Sie die Tasten Alt + F11 auf der Tastatur. Dadurch wird das Codemodul geöffnet. Auf der linken Seite sehen Sie Microsoft Excel-Objekte. Klicken Sie mit der rechten Maustaste und wählen Sie Einfügen und dann Modul. Kopieren Sie den Code in das Codefenster rechts.