Excel und VBA - Die Excel-FAQ

Sanduhr als Mauszeiger

Screenshots zu den Aufrufoberflächen der Excel-Materialien

Sanduhr als Mauszeiger

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