Userform beenden obwohl Prozess läuft
Armin
ich habe folgendes Problem. Ich starte eine Userform mit einer Progressbar. Dort wird von 10 nach 0 gezält und damit die Anzeige des Progressbarbalkens jeweils um 1/10 pro Sekunde verringert, siehe folgenden VBA-Code
Private Sub UserForm_Activate()
Me.ProgressBar1.Max = 10
For i = 10 To 0 Step -1
Application.Wait (Now + TimeValue("00:00:01"))
Me.ProgressBar1.Value = i
Next i
Unload Me
End Sub
Soweit so gut.
Jetzt habe ich auf der Userform auf der sich die Progressbar befindet auch noch eine Schaltfläche mit der Bezeichnung "Abbruch". Ein Klick auf die Schaltfläche "Abbruch" sollte nun die Schleife unterbrechen und die UserForm ausblenden, bevor bis 0 gezählt wurde.
Hat für das Problem jemand eine Idee?
Vielen Dank für eure Tipps.
Armin
Anzeige