Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
204to208
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
204to208
204to208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fortschrittsanzeige

Fortschrittsanzeige
22.01.2003 12:48:38
Lutz
Hallo an alle,

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


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Fortschrittsanzeige
22.01.2003 17:57:33
Lutz
Hi Thomas,

ich werde gleich mal nachschauen, danke...und mal sehen, ob ich noch was für Sonja tun kann...

Ciao
Lutz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige