habe Probleme beim Warten.
Warum macht folgender Code eine Fehlerunterbrechung beim Warten?
Private Sub CommandButton1_Click()
Dim Buttonfarbe As Long
Dim Buttontext As String
Buttonfarbe = CommandButton1.BackColor
Buttontext = CommandButton1.Caption
CommandButton1.Caption = "Kurz warten ..."
CommandButton1.BackColor = rgbOrange
Application.Wait (Now + TimeValue("0:00:2")) 'warten
CommandButton1.Caption = Buttontext
CommandButton1.BackColor = Buttonfarbe
End Sub
Hier die Datei mit Aufrufbutton und Code: https://www.herber.de/bbs/user/112466.xlsm
Freue mich auf Antworten.
LG,
B.