Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Userform beenden obwohl Prozess läuft

Userform beenden obwohl Prozess läuft
Armin
Hallo,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Userform beenden obwohl Prozess läuft
18.05.2011 22:14:19
Oberschlumpf
Hi Armin
Versuch mal
Option Explicit
Private Sub CommandButton1_Click()
r = True
Unload Me
End Sub
Private Sub UserForm_Activate()
Dim i As Integer
Me.pgr1.Max = 10
For i = 10 To 0 Step -1
Application.Wait (Now + TimeValue("00:00:01"))
Me.pgr1.Value = i
DoEvents
If r = True Then Exit Sub
Next i
Unload Me
End Sub
'ins allg. Modul
Option Explicit
Public r As Boolean
Hilfts?
Bei mir funzt es.
Ciao
Thorsten
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige