Probleme mit Fortschrittsbalken (Progressbar) :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Probleme mit Fortschrittsbalken (Progressbar)

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Wandiii
Besserwisser

Anmeldedatum: 14.11.2007
Beiträge: 57

Verfasst am: 21.11.2007, 13:05

hallo,

habe ein problem mit dem fortschrittsbalken in Excel 2003.

ich lass in meiner datei sortier und zählungen als macro laufen, welche jedoch ca. 1 minute zeit in anspruch nehmen. screenupdate etc hab ich ausgeschalten, der user sieht also nix

jetzt habe ich mich etwas in programmierung eines fortschrittbalkens eingearbeitet. habe es auch scho geschaft schleifen zu programmieren, mit welchen ein fortschrittsbalken läuft inkl update der title beschriftung des balkens.

nur wie kann ich so einen balken (userform) in ein sub einbinden?

wenn ich die userform aufrufe, läuft einmal der balken von 0 bis 100 (voll) und dann wenn er das nächste mal wieder den befehl userform1.show bekommt läuft der balken wieder von 0 bis 100

ich möchte aber, dass der balken mit jeder sortieroperation weiterläuft also muss ich die userform irgenwie verlassen, den alten stand des balkens sichern und wenn er einmal in seinem sub wieder sortiert hat, möchte ich dass der fortschrittsbalken wieder aktualisiert wird.

mein probelm ist halt, dass das userform durch userform.show jedesmal NEU aufgerufen wird und sich keinen alten stand speichert.

anderersetis kann ich userform nicht als funktion mit parameterübergabe aufrufen und mir irgendwie einen parameter vom userform sichern.

hat einer ne idee wie ich das machen könnte?

Wandiii
Besserwisser

Anmeldedatum: 14.11.2007
Beiträge: 57

Verfasst am: 21.11.2007, 16:12

erledigt ;)

schnake
User mit gefährlichem Halbwissen

Anmeldedatum: 17.11.2006
Beiträge: 128

Verfasst am: 22.11.2007, 00:37

und wie? , das wäre auch toll wenn du sagen würdest wie du das gemacht hast

Wandiii
Besserwisser

Anmeldedatum: 14.11.2007
Beiträge: 57

Verfasst am: 22.11.2007, 17:34

Sub ProgressBar(PctDone As Single)
With ProgressDlg
.lblDone.Width = PctDone * (.lblRemain.Width - 2)
.lblPct.Caption = Format(PctDone, "0%")
End With
'The DoEvents statement is responsible for the form updating
DoEvents
End Sub

Function setPos(i As Long, intMax As Long)

With ProgressDlg
ProgressDlg.Caption = "Rebuilding Geometry-Index, please wait"
If i Mod 5 = 0 Then ProgressBar i / intMax
End With
End Function

Private Sub UserForm_Activate()
Call Main

End Sub

Private Sub UserForm_Initialize()
With Me.lblDone ' set the "progress bar" to it's initial length
.Top = Me.lblRemain.Top + 1
.Left = Me.lblRemain.Left + 1
.Height = Me.lblRemain.Height - 2
.Width = 0
End With
End Sub

in meiner subroutine

main()

iMax = 2000
i = 0

setPos i, iMax

i = i + 1

ein fehler hat der balken noch:

iMax wird derzeit ein fester wert vorgeben und zwar 2000

falls das macro jetzt mehr als 2000 durchlaufen wird, kommt es zu einem vba fehler.

ich muss jetzt irgendwie noch vorher zählen, wie oft mein macro ca. durchlaufen wird, das mach ich aber erst morgen :)

falls es fragen zu dem code gibt bitte hier schreiben:

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Probleme bei 2. E-mail Konto	binchen580	Microsoft Outlook Hilfe	1	06.01.2009, 19:51
	Probleme mit Textfelder	chaplin	Microsoft Word Hilfe	0	04.01.2009, 13:31
	Probleme mit Hoverschaltfläche	gerd.ringelmann	Microsoft FrontPage Hilfe	0	04.01.2009, 10:05
	Probleme beim Seriendruck von Etiketten	elfriedequack	Microsoft Word Hilfe	9	18.12.2008, 11:10
	Weiß nicht weiter! Hab Probleme!	steried	Sonstiges	1	30.11.2008, 21:57

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de