Problemstellung:
Für 32Bit und 64Bit Office Versionen
Wie kann ich den Programmablauf für eine bestimmte Zeit anhalten?
Public Function WartenSekunden(Sec As Long) ' --------------------------------------------------------- ' Diese Funktion hält die Verarbeitung für X Sekunden an. ' X wird über das rufende Programm definiert. ' --------------------------------------------------------- Dim merk As Long merk = Int(Timer) + Sec Do Until Timer >= merk DoEvents Loop End Function
Aufruf:
Call WartenSekunden(10)
würde das Programm für 10 Sek anhalten
Ähnliche Artikel