Fortschrittsbalken abbrechen
25.10.2007 11:50:00
chris
ich habe mir einen Fortschrittsbalken erstellt.
Zusätzlich habe ich auf der Userform einen Bitton zum abbrechen eingebaut.
Aber leider schiet es mir mein Excel ab wenn cih öfter den timer starte und beende. ?
was kann das sein ? Vielleicht weil die for schleife noch aktiv ist ? Wie deaktiviere ich die aus einem anderen Modul heraus ?
Vielen dank
Hier noch mein Code:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub UserForm_Activate()
Dim wprozent As Integer
DoEvents
For x = 1 To 500
DoEvents
UserForm1.Label1.Width = x / 3
wprozent = x / 5
DoEvents
UserForm1.Label2.Caption = wprozent & "% Prozent"
Me.Repaint
Sleep 10
Next
End Sub
Private Sub CommandButton1_Click()
Me.Hide
Unload Me
End Sub
gruß Chris
Anzeige