Gruppe
Allgemein
Problem
Gibt es eine Möglichkeit, das Erscheinungsbild des Mauszeigers in Excel auf Sanduhr umzustellen?
StandardModule: basMain
Sub ChangeCursor()
If Application.Cursor = xlWait Then
Application.Cursor = xlNormal
ActiveSheet.Buttons(1).Caption = "Zeiger auf Sanduhr"
Else
Application.Cursor = xlWait
ActiveSheet.Buttons(1).Caption = "Zeiger auf Normal"
End If
End Sub