Programmablauf warten lassen I

1 1 1 1 1 1 1 1 1 1 Rating 2.50 (2 Votes)

Details: Kategorie: Codeschnipsel Sonstiges; Geschrieben von TommyK; Zugriffe: 9411

Problemstellung:

Für 32Bit und 64Bit Office Versionen

Wie kann ich den Programmablauf für eine bestimmte Zeit anhalten?

#If VBA7 Then
    'Code für 32 bit und 64 bit Office VBA 7
     #If Win64 Then
        'Code für 64-bit Office VBA 7
        Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
     #Else
        'Code für 32-bit Office VBA 7
        Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
     #End If
#Else
    'Code für VBA 6 (32 bit)
    Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

Aufruf:

Call Sleep(10000)

würde das Programm für 10 Sek anhalten