Office: (Office 2016) VBA: Laufendes Macro individuell abbrechen (per UserForm ???)

Hallo,

mal eine Frage wegen einer UserForm.
Ich habe ein Macro was sehr sehr lange laufen wird (mehrere Stunden) und ich möchte gerne eine Option haben das Macro individuell abzubrechen. Meine Idee war es über eine UserForm mit einer Checkbox zu realisieren. Die UserForm wird regelmäßig durch das Macro aufgerufen und aktualisiert. Leider kann ich die Checkbox, während das Macro läuft, nicht anklicken und somit das Häkchen setzen, also auf True setzen.

Gibt es eine Möglichkeit ein Macro während des Durchlaufes individuell abzubrechen?
Ich wäre für Ideen und Tipps sehr dankbar.

Hier mal das UserForm Sub welches ich ursprünglich verwenden wollte:

Code:

Sub UserForm_UpdateInfo( _
    ByVal objUserFormObject As Object, _
    ByVal lngFileCountMax As Long, _
    ByVal lngFileCountAct As Long, _
    ByVal lngIterationMax As Long, _
    ByVal lngIterationAct As Long)
 
    With objUserFormObject
 
‘Hier soll das Macro abgebrochen werden
        If UserInfo_CB_EndProcess = True Then
            End
        End If
 
‘UserForm Update    
        .UserInfo_LA_FileCount = lngFileCountAct & " / " & lngFileCountMax
        .UserInfo_LA_IterationCount = lngIterationAct & " / " & lngIterationMax
        .Repaint
    End With
 
End Sub

 

Moin!
Dafür sieht MS entweder Esc oder Strg+Pause vor.

Gruß Ralf

 

Hallo,

VBA ist single threaded, weshalb Du auch nicht, während das Makro läuft, z.B. mit der UserForm interagieren kannst.
Ausser der Möglichkeit, die Ralf beschrieben hat, sehe ich da ebenfalls erstmal nichts.

Gruß

 

Man könnte ja so etwas machen

Code:

Option Explicit

Sub LoopForEver()

Dim x As Long
    On Error GoTo handleCancel
    Application.EnableCancelKey = xlErrorHandler
    'MsgBox "This may take a long time: press ESC to cancel"
    For x = 1 To 1000000 ' Do something 1,000,000 times (long!)
        ' do something here
        Cells(x, 1) = x
    Next x

handleCancel:

    If Err = 18 Then
        If MsgBox("You cancelled", vbYesNo, "Continue (Yes/No") = vbYes Then
            Resume
        End If
    End If

End Sub

Weitere Details hier

 

Hallo RPP63, Hallo maninweb, Hallo Storax,

bitte entschuldigt meine sehr späte Antwort (war beruflich unterwegs).
Danke für Euren Input mit den notwendigen Tips und den Denkanstößen.
Habe eine Möglichkeit gefunden es über ein UserForm zu realsieren :) und dabei ist das Zauberwort DoEvents .
Ich habe Euch mal mein Test File angehängt, damit Ihr, wenn Ihr Lust habt, mal schauen könnt.

Nochmals Danke für Eure Hilfestellungen und Denkanstöße.
Schöne Grüße
Tauchmann

 

Das Ding bringe ich ja mit einem Klick zum Absturz. Klicke während der Ausführung auf Cancel (das x in der Form)!

Die Frage ist, was ist die wirkliche Anforderung?
Eine Fortschrittsanzeige im Formular? Das wird üblicherweise anders gemacht!
Soll der Benutzer während der Ausführung den Code abbrechen können? Dann eher über die oben beschriebenen Methoden.
Den Code, den Du vorstellst, bremst ja alles aus bzw. ohne Application.Wait sieht es aus wie ein Video-Spiel