Hallo Rolf,
verraets Du auch den Mitlesenden (vielleicht etwas ausfuehrlicher), was Du Hans damit sagen willst?
Das Thema "Fortschrittsanzeige" interessiert hier, denke ich, viele.
Gruss Volker
Hallo Rolf,
verraets Du auch den Mitlesenden (vielleicht etwas ausfuehrlicher), was Du Hans damit sagen willst?
Das Thema "Fortschrittsanzeige" interessiert hier, denke ich, viele.
Gruss Volker
Hallo Volker + weitere Interessenten,
sorry für die Kryptik.
Hier eine Anzeigeroutine, basierend auf Hans' selbstgebastelter
Fortschrittsanzeige-Userform, deren großer Anwendungsnachteil darin bestand, dass die Steuerung an die Form gebunden war.
Mit '.show vbmodeless' ist die Steuerung eben nicht mehr gebunden.
Sub progress(t, G, Optional F) 't=Teilmenge,G=Grundmenge,F=File i.p.
With progressbar 'Userform von Hans
.lblProgress.Width = 200 * t / G
.fmeProgress.Caption = Format(t / G, "0%")
.Show vbModeless
End With
DoEvents
End Sub
Die Routine ist etwa von folgenden 'Hauptprogramm' aufrufbar:
Sub progressform() 'Hauptprogramm
Dim i, n
Dim y
n = 10000
For i = 1 To n
y = i ^ 10
progress i, n
Next
Unload progressbar
End Sub
Wen' s interessiert, dem schicke ich gern die Beipieldatei.
Freundl. Grüße aus Hessen
Rolf Beißner
mit "Userform.Show vbModeless"
ist der ganze Steuerungsärger jetzt weg.
Herzliche Grüße
Rolf
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen