automatisch schließen
26.06.2025 15:38:00
Erik
Eventuell wegen einer neuen Excel Version. Ist aber nur eine Vermutung.
Sub AutoClose()
iWait = iWait + 1
If cMax - iWait > 0 Then
Application.StatusBar = Format(Zeit - TimeSerial(0, 0, iWait), "hh:mm:ss")
gdNextTime = Now + TimeSerial(0, 0, ciIntervall)
Application.OnTime gdNextTime, dsMacro
Else
Application.WindowState = xlMinimized
Application.DisplayFullScreen = False
bolAutoClose = True
Call DateiCloseAktionen
ThisWorkbook.Close SaveChanges:=True
End If
End SubDer Countdown läuft nicht mehr sauber. Er unterbricht ständig und zählt nicht mehr bis auf 0.
Wird die Maus etwas bewegt, zählt er wieder weiter, unterbricht dann aber wieder.
Hat jemand eine Idee an was das liegen könnte?
Vielen Dank
Erik
Anzeige