Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: Timer-Funktion (Beispiel)

In diesem Beispiel wird die Timer-Funktion verwendet, um die Anwendung kurzzeitig zu unterbrechen. In dem Beispiel wird außerdem DoEvents verwendet, um die Steuerung während der Pause an andere Prozesse abzugeben.

Dim Pausenlänge, Start, Ende, Gesamtdauer
If (MsgBox("5 Sekunden Pause?", 4)) = vbYes Then
    Pausenlänge = 5    ' Dauer festlegen.
    Start = Timer    ' Anfangszeit setzen.
    Do While Timer < Start + Pausenlänge
        DoEvents    ' Steuerung an andere Prozesse
            ' abgeben.
    Loop
    Ende = Timer    ' Ende festlegen.
    Gesamtdauer = Ende - Start    ' Gesamtdauer berechnen.
    MsgBox "Die Pause dauerte " & Gesamtdauer & " Sekunden"
Else
    End
End If