Sanduhr als Mauszeiger

Thema: Allgemein - Gruppe Ansicht

Arbeitsmappe

041298    000297

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