optische Fortschrittsanzeige
06.12.2005 19:00:32
Peter
ich möchte eine optische Anzeige (UfrmStatus) für die Abarbeitung
von meheren Makros basteln welche beim öffnen der Datei
aktiviert wird.
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.
Leider hackt die Anzeige oder springt nicht weiter.
Wer kann nochmal helfen
Danke Peter
'In "DieseArbeitsmappe"
Private Sub Workbook_Open()
Call gesamt
End Sub
'### In UfrmStatus
Private Sub UserForm_Initialize()
LblVerlauf.Width = 0
End Sub
Private Sub UserForm_Activate()
Dim i As Integer
'Application.Wait Now + TimeSerial(0, 0, 1)
Me.Caption = "Bitte warten..."
LblVerlauf.Width = 10
FmeStatusanzeige.Caption = "10% abgearbeitet"
Call Schleife1
LblVerlauf.Width = 50
FmeStatusanzeige.Caption = "50%"
Call Schleife2
LblVerlauf.Width = 100
FmeStatusanzeige.Caption = "100%"
Application.Wait Now + TimeSerial(0, 0, 1)
Unload Me
End Sub
'###In Modul1
Sub gesamt()
UfrmStatus.Show modal
End Sub
Sub Schleife1()
For i = 1 To 1000
Cells(20, 2) = i
Next i
Application.Wait Now + TimeSerial(0, 0, 1)
End Sub
Sub Schleife2()
For i = 1 To 2000
Cells(20, 3) = i
Next i
Application.Wait Now + TimeSerial(0, 0, 1)
End Sub
Anzeige