Userform während der Laufzeit

Forumthread: Userform während der Laufzeit
8 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Userform während der Laufzeit

01.02.2009 15:16:42

Gast

Hallo,
ich möchte eine Userform während der Laufzeit eines Makros anzeigen und aktualisieren.
Funktioniert leider nicht, die Userform wird nur in weiß angezeigt während die Makroschleife läuft.
ShowModal ist auf False eingestellt.
ShowModal auf True stoppt ja die Makroschleife in Gänze.
Was ist zu tun, bzw ist mein Ansinnen überhaupt möglich?
Gruß Gast

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Userform während der Laufzeit

01.02.2009 15:48:33

Daniel
warte 1 Sekunde für den Aufbau des UserForms

01.02.2009 15:52:51

Matthias
AW: Userform während der Laufzeit

01.02.2009 16:07:54

Tino
Ja, mit .Repaint klappt es bei mir auch prima

01.02.2009 16:17:00

Matthias
OkDoki...............

01.02.2009 16:26:00

Gast
dies würde ich so machen

01.02.2009 16:36:00

Tino
AW: dies würde ich so machen

01.02.2009 17:15:34

Gast
aus der Hilfe

01.02.2009 16:29:00

Tino

AW: Userform während der Laufzeit

01.02.2009 15:48:33

Daniel

Hi
kannst du mal das Beispiel hochladen?
die beschreibung ist noch etwas spärlich
Gruß, Daniel

warte 1 Sekunde für den Aufbau des UserForms

01.02.2009 15:52:51

Matthias

Hallo
Lass dem Userfom(ular) eine Sekunde zeit
https://www.herber.de/bbs/user/58975.xls
Gruß Matthias

AW: Userform während der Laufzeit

01.02.2009 16:07:54

Tino

Hallo,
versuche mal dies und baue dies mit in die Schleife ein.
UserForm1.Repaint
Gruß Tino

Ja, mit .Repaint klappt es bei mir auch prima

01.02.2009 16:17:00

Matthias

Hallo Tino
Also bei mir klappt es prima


Option Explicit
Private Sub CommandButton1_Click()
Dim x As Long
UserForm1.Show
Application.Wait Now + TimeSerial(0, 0, 1)
For x = 1 To 20000
Cells(1, 1) = x
If x = 10000 Then
UserForm1.TextBox1.Text = "Halbzeit"
   UserForm1.Repaint
End If
Next
UserForm1.TextBox1.Text = "fertig"
End Sub

https://www.herber.de/bbs/user/58976.xls
Gruß Matthias

OkDoki...............

01.02.2009 16:26:00

Gast

Hallo,
es funzt jetzt Danke.
Gruß Gast

dies würde ich so machen

01.02.2009 16:36:00

Tino

Hallo,
, um die Laufzeit nicht zu verlängern.


Private Sub CommandButton1_Click()
Dim x As Long
UserForm1.Show
UserForm1.TextBox1.Text = "Halbzeit"
UserForm1.Repaint
For x = 1 To 20000
Cells(1, 1) = x
Next
UserForm1.TextBox1.Text = "fertig"
End Sub

Gruß Tino

AW: dies würde ich so machen

01.02.2009 17:15:34

Gast

Hallo Tino,
Danke nochmal, mit Repaint funzt es in der Tat ohne die Laufzeit zu verlängern.
Gruß Gast

aus der Hilfe

01.02.2009 16:29:00

Tino

Hallo,
Aktualisiert die Anzeige durch erneute Ausgabe des Formulars oder der Seite
Die Repaint-Methode ist hilfreich,
wenn sich der Inhalt oder das Erscheinungsbild eines Objekts signifikant verändert hat und
Sie nicht warten möchten, bis das System den Bereich automatisch neu zeichnet.
Gruß Tino