unten stehenden Code einer Fortschrittsanzeige habe ich mal in der Recherche gefunden. Funzt auch, läuft aber selbständig, also ohne Rücksicht auf die Dauer der Sub, die während der Anzeige durchgeführt wird. Kann man Sub xyz mit der Fortschrittsanzeige vergnaddeln, so dass auch wirklich der Abarbeitungsstand der Sub angezeigt wird ?
Private Sub UserForm_Activate()
Dim dblRow As Double
Application.ScreenUpdating = False
Me.Caption = "Bitte warten..."
For dblRow = 1 To 10000
If dblRow Mod 10 = 0 Then
lblProgress.Width = 222 * (dblRow / 10000)
fmeProgress.Caption = Format(dblRow / 10000, "0%")
DoEvents
End If
Next dblRow
Unload Me
End Sub
Gruß Lutz