Ich habe ein Problem mit einer Arbeitsmappe in der ich eine Berechnung über drei Arbeitsblätter hinweg durchführen möchte. Die Berechnung funktioniert einwandfrei.
Ich möchte jetzt im nächsten Schritt bei Betätigen der Berechnung (mittels CommandButton) eine _ Userform öffnen lassen, die dem Nutzer mitteilt, dass die Rechnung läuft. Das funktioniert soweit auch. Die Berechnung läuft durch
UserForm.Show vbmodeless
einfach weiter durch.Nun soll auf der Userform ein "Abbrechen"-Button sein, mit dessen Hilfe ich eine Berechnung abbrechen kann. Mein Gedanke dazu war dieser: Ich definiere eine Public Variable, die ich bei Klicken auf den "Abbrechen"-Button an die "Rechnen"-Funktion übergebe und mittels If-Bedingung (im Idealfall) einen Abbruch hervorrufe.
Public Abbruch As Integer
Sub Abbrechen_Click()
Abbruch = 1
End Sub
Sub Rechnen_Klicken()
Abbruch = 0
UserForm.Show vbmodeless
DoEvents
If Abbruch = 0 Then
'Führe Berechnung durch
Else
Exit Sub
End if
End Sub
Leider Funktioniert das so nicht. Die UserForm erscheint, der "Abbrechen"-Button lässt sich dann aber nicht betätigen. Die Berechnung läuft also bis zum Schluss durch.
Woran kann das liegen?
Vielen Dank für Eure Hilfe!
PS: Ich habe hier eine Beispiel-Tabelle angefügt:
https://www.herber.de/bbs/user/122062.xlsm