Macro handmatig onderbreken

[harolda1980]

Ik heb een macro die continue draait en die ik wil onderbreken. Hoe maak ik een onderbrekingspunt erin! Dat bijvoorbeeld via een knop kan aangeven.

 

[E v R]

Hard way: Ctrl+Break

Of het woordje stop in de code opnemen

Of een variabele (public) aanmaken waarin tijdens het 'runnen' van de code die waarde wordt uitgelezen

aanzetje:

Public AanUit As Boolean

Sub tst()
AanUit = True

Do While AanUit
Range("a1").Value = Now()
DoEvents
Loop

End Sub

Private Sub CommandButton1_Click()
AanUit = False
End Sub

 

[harolda1980]

En als ik hem er dan geheel uit wil gooien?

 

[E v R]

zoiets:

Public AanUit As Boolean

Private Sub CommandButton1_Click()
AanUit = False
End Sub

Sub tst2()
AanUit = True
'een stuk code
If AanUit = False Then Exit Sub
'een stuk code
If AanUit = False Then Exit Sub
'een stuk code
End Sub

 

[harolda1980]

Heb de exit via de volgende code! maar als ik de code met while gebruik krijg ik een lichte vastloper!

do until aanuit = true

Loop

 

[Haaren101]

En hoe ziet die code met de while er dan uit?

While aanuit
    blabla
Wend

Ron

 

[harolda1980]

do While aanuit
blabla
Loop