Opgelost Macro stoppen

[xbox360]

Allereerste de beste wensen voor iedereen en een gezond 2025

ik heb een soort ik noem het een draaiende scherm
nu werkt de macro wel maar is er ook een manier om de marco te stoppen?
als ik ESC of break doe dan stopt de macro wel maar krijg dan een fout melding
alvast bedankt

 

[Verwijderd lid 501906]

Je VBA is een oneindige loop, en dan is stoppen altijd erg moeilijk.
Je kunt een waarde-controle inbouwen die tijdens de loop wordt gecontroleerd.
Kun je uitleggen wat je precies wilt bereiken/doen met deze macro?

STOPLOOP toewijzen aan stop knop

Dim StopLoop As Boolean

Sub Start()
    Dim min As Long, max As Long, kant As Long
    min = 10
    max = 60
    kant = 10
    StopLoop = False
    
    ' Bind de ESC-toets aan de StopMacro subroutine
    Application.OnKey "^w", "StopMacro"
    
    Application.ActiveWindow.ScrollRow = min
    While Application.ActiveWindow.ScrollRow <= max And Not StopLoop
        Application.Wait Now + TimeValue("00:00:01")
        If Application.ActiveWindow.ScrollRow = min Then kant = 10
        If Application.ActiveWindow.ScrollRow = max Then kant = -10
        Application.ActiveWindow.ScrollRow = Application.ActiveWindow.ScrollRow + kant
        
        ' Toestaan dat andere gebeurtenissen zoals de ESC-toets worden uitgevoerd
        DoEvents
    Wend
    
    ' Reset de ESC-toets binding
    Application.OnKey "^w"
End Sub

Sub StopMacro()
    StopLoop = True
End Sub

 

[xbox360]

het is een soort excel lijst die draait in de bejaardenhuis

 

[xbox360]

Getest en werkt
Super, en de beheerder van de bejaardenhuis ook blij hoop ik
Dank je wel

 

[Verwijderd lid 501906]

Ik hoop niet dat de 'beheerder' hiermee een keuze maakt
grapje

 

[emields]

en als uw bereiken niet allemaal even groot zijn kan je het ook zo doen.

 

[Verwijderd lid 501906]

@emields

Die is erg goed
Hij reageert ook beter / sneller dan mijn optie.