Sleep-Funktion integrieren
11.05.2021 08:52:13
Martin
ich google und google aber irgendwie bin ich dennoch zu dämlich die SleepFunktion in meinem Progrämmchen einzubauen und so sauber zu warten und nicht wie wait mit größerer Ungenauigkeit.
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Sollte ja die Codezeile für neuere 64 Bit Versionen sein?!
Doch wo muss ich die Codezeile einbauen?
Am besten global, dass ich die Zeile nicht überall einbauen muss, wo ich eine Haltezeit möchte (konkret denke ich es zu brauchen, weil ich nicht immer ein Tabellenblatt lösche und teilweise überspringe... Option2 die ich mir vorstellen könnte was hilft, meine Funktionen SpeedOn und SpeedOff.
Testprogramm:
Private Sub CommandButton1_Click()
MsgBox "Jetzt"
Sleep (10000)
MsgBox "Jetzt +10"
End Sub
'Speedblock on
With Application
.ScreenUpdating = False
.DisplayStatusBar = False
.Calculation = xlCalculationManual
.EnableEvents = False
End With
ActiveSheet.DisplayPageBreaks = False
End Sub
Private Sub SpeedOff()
'Speedblock off
With Application
.ScreenUpdating = True
.DisplayStatusBar = True
.Calculation = xlCalculationAutomatic
.EnableEvents = True
End With
ActiveSheet.DisplayPageBreaks = True
End Sub