Eigenartige Sache
07.09.2021 14:29:26
oraculix
Beim klicken auf den Commandbutton5 wird die Arbeitsmappe gespeichert und danach erscheint statt einer Msgbox ein Object das 1Sekunde
automatisch geschlossen werden sollte! Tut es aber nicht es dauert fast 7 sec.
Frage:
Wie kann ich das noch beschleunigen damit die Meldung schneller geschlossen wird?
Habe schon zb. versucht 0.1 einzugeben dann wird es sogar noch länger.
Private Sub CommandButton5_Click()
Application.DisplayAlerts = False
Dim objWSH As Object
ActiveWorkbook.SaveAs Filename:="F:\!Software\OFFICE 2019\!Filme.xlsm"
Application.DisplayAlerts = True
Set objWSH = CreateObject("WScript.Shell")
objWSH.Popup "Datei erfolgreich gespeichert", 1, "Information"
Set objWSH = Nothing
End Sub
GrußOraculix