|
VBA - Mauszeiger wird zur Sanduhr |
 |
 |
 |
|
Geschrieben von: Marcus Rose
|
|
Dienstag, 13. Mai 2008 um 16:16 Uhr |
Mauszeiger (Curser) wird zur SanduhrNehmen wir einmal an das Ihr gerade einen längeren Excel Code abarbeiten lasst. Der Bediener einer Tabelle kann so etwas ja eigentlich nicht erkennen. Aber auch dafür gibt es eine nette, kleine, Spielerei. Man könnte doch, bevor der Code gestartet wird, den Curser als Sanduhr darstellen. Wenn das Makro mit seiner Arbeit fertig ist, stellt man den Mauszeiger einfach wieder in seine Normalstellung zurück.
Option Explicit
Sub Mauszeiger()
Dim x As Integer
Dim y As Integer
Application.Cursor = xlWait
'Die Schleifen können entfernt werden.
For x = 1 To 20000
For y = 1 To 20000
Next
Next
Application.Cursor = xlDefault
End Sub Hinweis Application.Curser = xldefault muss zum Schluss gesetzt werden, denn das schaltet den Curser wieder in Normalstellung.
|
VBA Makro Beispiele 