optische Verlaufsanzeige
05.12.2005 20:45:32
Peter
ich möchte eine optische Anzeige für die Abarbeitung
von meheren Makros basteln. Dazu möchte ich nicht die
abgearbeitete Zeilenzahl oder Zähler benutzen.
Am Ende der einzelnen Makros soll für 1. Sekunde der aktuelle Stand
nach meiner Angabe angezeigt werden.
Ich weiß nicht wie die Abarbeitung des Makros für ca. 1. Sekunde
selbständig unterbrochen und ohne Betätigung von Tasten fortgeführt wird.
Wer kann helfen
Danke Peter
Private Sub UserForm_Initialize()
LblVerlauf.Width = 0
End Sub
Private Sub CmdStart_Click()
Dim i As Integer
Me.Caption = "Bitte warten..."
For i = 1 To 2000
If i = 10 Then
'Hier ein Halt für eine für 1. Sekunde zur Anzeige
' und danach weiter im Makro
LblVerlauf.Width = 100
FmeStatusanzeige.Caption = "50%"
End If
Next i
Unload Me
End Sub
Anzeige