ich babe auf der neuen CD von Hans ein Programm gefunden, was eine Fortschrittsanzeige per Userform ermöglicht.
Private Sub cmdStart_Click()
Dim dRow As Double
Application.ScreenUpdating = False
Me.Caption = "Bitte warten..."
For dRow = 1 To 10000
If dRow Mod 10 = 0 Then
lblProgress.Width = 222 * (dRow / 10000)
fmeProgress.Caption = Format(dRow / 10000, "0%")
DoEvents
End If
Cells(dRow, 1) = "Zeile " & dRow
Next dRow
Cells.ClearContents
Unload Me
End Sub
Private Sub UserForm_Initialize()
With lblProgress
.Width = 0
.Left = lblBackGround.Left
.Top = lblBackGround.Top
End With
End Sub
Das Programm läuft sehr gut, aber wie kann die folgendes erreichen? Mein Programm dauert sehr lange, jetzt soll mein Programm im Hintergrund weiter laufen und im Vorgrund die Forschrittsanzeige angezeigt werden. Mein Programm besteht aus einem Modul. Wie ich erreichen, das die Fortschrittsanzeige solange läuft, bis mein Programm fertig ist?
Vielen Dank für die Hilfe und noch einen schönen Sonntag!
Gruß
Thomas Weiss