Anzeige Fortschrifsbalgen abbrechen 09.08.2008 21:10:32 Jochen Hi, wie kann ich folgenden Code auf meiner userForm per Button unterbrechen, bevor die 30 Sekunden abgelaufen sind ? : https://www.herber.de/bbs/user/54473.xls Danke mal Jochen
AW: STRG + PAUSE owt 09.08.2008 21:48:40 Nepumuk Hallo Jochen, was soll das sein außer ein grün zuckender Balken? Abbrechen geht so: ' **********************************************************************' Modul: UserForm1 Typ: Userform' **********************************************************************Option ExplicitPrivate lblnAbort As BooleanPrivate Sub CommandButton1_Click() lblnAbort = TrueEnd SubPrivate Sub UserForm_Activate() Dim meTime As Date, sngW As Single, Zähler As Integer meTime = Time sngW = Label1.Width / 100 Do While (meTime + TimeSerial(0, 0, 30)) > Time And Not lblnAbort Zähler = Zähler + 1 If Zähler >= 10 Then Me.Caption = Format(Time, "hh:mm:ss") Label1.Width = Label1.Width + sngW If Label1.Width >= Label2.Width - 2 Then Label1.Width = 0 Zähler = 0 End If DoEvents Loop Unload MeEnd Sub Gruß Nepumuk Anzeige