VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

VBA-Begriff: DoEvents-Funktion (Beispiel)

In diesem Beispiel wird die DoEvents-Funktion verwendet, um nach jeweils 1000 Schleifendurchläufen die Steuerung an das Betriebssystem zu übergeben. DoEvents gibt die Anzahl der geöffneten Visual Basic-Formulare zurück, tut dies allerdings nur, wenn Visual Basic die Host-Anwendung ist.

' Variable erstellen, in der die Anzahl der geladenen und sichtbaren 
' Visual Basic-Formulare gespeichert wird.
Dim I, GeöffneteFormulare
For I = 1 To 150000    ' Schleifenanfang.
    If I Mod 1000 = 0 Then     ' Nach 1000 Durchläufen Steuerung
        GeöffneteFormulare = DoEvents    ' an das Betriebssystem abgeben.
    End If
Next I    ' Schleifenzähler hochzählen.