Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1368to1372
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
Inhaltsverzeichnis

Trotz Userform.Show Code weiter ausführen?

Trotz Userform.Show Code weiter ausführen?
15.07.2014 13:41:53
Robert
Hallo zusammen,
Da mein Makro eine Recht lange Berechnungszeit hat, würde ich gerne eine Art Log zeigen, während das Programm läuft.
Das Programm wird beim Klicken eines Commmandbuttons auf einer Userform ausgeführt.
Nun hatte ich im Code folgendes Stehen
Sub Commandbutton1_Click
Userform_alt.Hide
Userform_Progress.show
Userform_Progress.OKbutton.Visible = False
Userform.Progress.Label1 = "Collecting Data..."
*Hier weiterer Programmcode*
Userform_Progress.Label1 = "Processing Sheet 1"
*Weiterer Code*
Userform_Progress.Label1 = "Looking for Changes...."
*Code*
Userform_Progress.Label1 = "Done!"
Userform_Progress.OKButton.Visible = True

Nun habe ich das Problem, dass während die Userform angezeigt wird, kein weiterer Code ausgeführt wird.
Wie kann ich das Umgehen?
Da ich viele Variablen aus Userform1 benutze ist das Auslagern des Codes in die Userform2 wohl keine Option.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Trotz Userform.Show Code weiter ausführen?
15.07.2014 14:06:42
yummi
Hallo Robert,
ruf deine Userform doch nicht modal auf
userform.show false
gruß
yummi

AW: Trotz Userform.Show Code weiter ausführen?
15.07.2014 14:14:50
Robert
Hallo yummi,
Danke für die schnelle Antwort!
okay, das funktioniert gut, die Userform kommt und der Code rennt weiter.
Neues Problem:
Das Label wird nicht angezeigt bzw nicht geändert. Erst ganz am Ende das "Done!" erscheint.
Was läuft hier schief?

ohne code .......nicht zu beantworten (owT)
15.07.2014 14:18:57
yummi

AW: ohne code .......nicht zu beantworten (owT)
16.07.2014 07:40:04
Robert
Hallo yummi,
hat sich erledigt, siehe anderer Post von mir....
ein nachgehängtes DoEvents hat das Problem gelöst :)
Viele Grüße
Robert

AW: Trotz Userform.Show Code weiter ausführen?
15.07.2014 14:20:27
Robert
Hallo nochmal,
habe durch rumprobieren folgendes Rausgefunden:
Durch anhängen von DoEvents erscheinen nun auch die Labeländerungen.
Code sieht jetzt so aus:
Sub Commandbutton1_Click
Userform_alt.Hide
Userform_Progress.show false
Userform_Progress.OKbutton.Visible = False
Userform.Progress.Label1 = "Collecting Data..."
DOEvents
*Hier weiterer Programmcode*
Userform_Progress.Label1 = "Processing Sheet 1"
Doevents
*Weiterer Code*
Userform_Progress.Label1 = "Looking for Changes...."
Doevents
*Code*
Userform_Progress.Label1 = "Done!"
Userform_Progress.OKButton.Visible = True
Doevents

Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige