Laufende Uhrzeit während save-Phase
Lang
ist es möglich, während der Workbook.save-Phase, in der Statusleiste die Uhrzeit weiterlaufen zu lassen?
Wenn ja, bitte ich um eine Lösung.
Versuchte Anpassungen der Datei "62795" blieben erfolglos. Ich vermute mal, dass mein Wunsch während dem "saven"ohnehin nicht realisierbar ist. Getreu dem Motto "will, kann aber nicht" zeige ich derzeit den "Fortschritt" an mit:
With Application
.DisplayStatusBar = True
' [Stand] = jetzt()
.StatusBar = "Bitte ca. eine Minute warten! Speichere " & [Stand] & "..."
End With
ThisWorkbook.Save
CountDown_5 >> 5-Sek-Anpassung aus urspr. "CountDownStatusZeile.htm":
Sub CountDown()
Dim intCounter As Integer
Dim bln As Boolean
bln = Application.DisplayStatusBar
Application.DisplayStatusBar = True
For intCounter = 30 To 1 Step -1
Application.StatusBar = "Noch " & _
intCounter & " Sekunden..."
Application.Wait Now + TimeSerial(0, 0, 1)
Next intCounter
Application.StatusBar = False
Application.DisplayStatusBar = bln
End Sub
Vielen Dank für Eure Bemühungen!
Gruß Klaus Lang