Fortschrittsbalken
01.01.2003 16:20:17
Sven
Ich habe auf diser Seite den Code für eine Fortschrittsanzeige gefunden. Diese Starte ich mit einen Button. Es öffnet sich nun eine Fenster mit dem Fortschtittsbalken und einem Start-Button.
Drücke ich nun den Start-Button wird eine Schleife gestartet und die Fortschrittsanzeige zeigt mir korrekt an wie lange es noch dauert.
Will aber nun das die Anzeige sofort startet und die Schleife ausführt und man nicht extra nochmal den Start-Button unter der Fortschrittsleiste drücken muss.
Dies funktioniert aber irgendwie nicht.
Hier mal der Code mit Start-Button:
Private Sub cmdStart_Click()
Dim dblRow As Double
Application.ScreenUpdating = False
frmProgress.Caption = "Bitte warten..."
For dblRow = 1 To 1000
If dblRow Mod 10 = 0 Then
lblProgress.Width = 222 * (dblRow / 1000)
fmeProgress.Caption = Format(dblRow / 1000, "0%")
DoEvents
End If
Cells(dblRow, 1) = "Zeile " & dblRow
Next dblRow
Unload frmProgress
End Sub
Hier mein Code:
Sub Fortschrittsanzeige()
frmProgress.Show
Dim dblRow As Double
Application.ScreenUpdating = False
With frmProgress
frmProgress.Caption = "Bitte warten..."
For dblRow = 1 To 1000
If dblRow Mod 10 = 0 Then
.lblProgress.Width = 222 * (dblRow / 1000)
.fmeProgress.Caption = Format(dblRow / 1000, "0%")
DoEvents
End If
Cells(dblRow, 1) = "Zeile " & dblRow
Next dblRow
Unload frmProgress
End With
End Sub
Er rechnet zwar die Schelife durch aber zeigt mir den Fortschritt nicht an.
Für einen Tipp wäre ich sehr dankbar.