Ich möchte den aktuellen Inhalt der Statusbar an eine Variable zuweisen, etwas anderes anzeigen und dann nach 1 Sekunde wieder den alten Inhalt bringen (resp. wenn nichts angezeigt wurde und wieder nichts zeigen).
Der jetzige Code bewirkt, dass am Ende in der Statusbar "FALSE" steht.
Was mus sich ändern?
Danke und Gruss, Peter
Sub SwitchEnableEvents()
Dim strStatusBisher As String
strStatusBisher = Application.StatusBar
Select Case Application.EnableEvents
Case True
Application.EnableEvents = False
Application.StatusBar = "EnableEvents ausgeschaltet"
Wait 1000
Application.StatusBar = strStatusBisher
Case False
Application.EnableEvents = True
Application.StatusBar = "EnableEvents eingeschaltet"
Wait 1000
Application.StatusBar = strStatusBisher
End Select
End Sub