Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
196to200
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fortschrittsbalken

Fortschrittsbalken
01.01.2003 16:20:17
Sven
Hallo
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.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Fortschrittsbalken
01.01.2003 16:59:28
Nepumuk
Hallo Sven,
nach dem Aufruf der Userform bleibt dein Makro stehen und wartet, das die Userform wieder geschlossen wird. Du musst die Userform mit einem separaten Makro aufrufen, und im Userform_Activate - Ereignis dein Makro für den Fortschrittsbalken starten.
Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige