Do Loop Schleife mit Button verlassen

[datekk]

Hallo,

ich hab ein kleines VBA Tool geschrieben, welches in einer Do Loop Schleife auf das befüllen einer Tabellenzelle wartet. Wie kann ich jedoch während der Loops per drücken einer Schaltfläche (BefStop) diesen Loop unterbrechen? Es gibt zwar im VBA die Funktion "Me.BefStop.OnClick" aber ich weiß nicht wie ich diese auslesen kann. Mit If me.BefStop.OnClick = True Then... funktioniert es jedenfalls nicht 

Wie macht man das?

[Wurliwurm]

Das Zauberwort ist "DoEvents"

Code [Auswählen] Erweitern

Private bolInterrupt As Boolean
Private Sub btnStart_Click()
    bolInterrupt = False
    Schleife
End Sub
Private Sub btnEnde_Click()
    bolInterrupt = True
End Sub
Private Sub Schleife()
    Debug.Print "Starte Schleife"
   
    While bolInterrupt = False
        Debug.Print "Aktiv..."
        DoEvents
    Wend
   
    Debug.Print "Wurde unterbrochen"

End Sub

[datekk]

Na besten Dank. funktioniert auf anhieb