Autosave mit Countdownbalken
13.02.2020 14:08:56
Alex
kann ich zu diesem Code einen Ladebalken anzeigen lassen für den Ablauf der 5 Minuten ?
Sub autosave()
Dim nexttime
ActiveWorkbook.Connections("BTT").Refresh
Application.OnTime nexttime, "autosave"
ActiveWorkbook.Save
nexttime = Now + TimeValue("00:05:00")
End Sub
Danke für die Hilfe