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?
Das Zauberwort ist "DoEvents"
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
Na besten Dank. :) funktioniert auf anhieb :)