Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hinter bewegter Userform weiter arbeiten

Hinter bewegter Userform weiter arbeiten
27.06.2005 09:57:44
Heili
Hallo Leute
Mir stehen schon die Haare zu Berge.
Ich lasse über ein Makro eine Arbeitsmappe starten die ca 15 sec zum öffen braucht.
Währendessen läuft bei mir eine Userform in der ein Bild von rechts nach links usw. wandert, durch eine Schleife.
Mein Problem ist, das immer erst die Userform fertig sein muß bevor es mit meinem Makro weiter macht.
Habe es schon mit Warten.Show false und DoEvents versucht aber irgendwie klappt das nicht so richtig.
Sub oeffen()
Load Warten
warten.Show False
DoEvents
Workbooks.Open Filename:= _
(Name99), updatelinks:=True
Unload warten
Danke schon mal
MfG
heili

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hinter bewegter Userform weiter arbeiten
27.06.2005 10:02:06
Hajo_Zi
Hallo heili,
siehe Dir mal diesen Beitrag an
https://www.herber.de/forum/messages/629163.html
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.

Homepage
AW: Hinter bewegter Userform weiter arbeiten
27.06.2005 10:38:38
Heili
Hallo Halli
Danke für deine Antwort aber das problem bei mir ist das ich eine bewegte userform habe(in meiner userform vielt das bitte warten rum).
das soll aber abgebrochen werden und das klappt nicht. hier meine userform:
in der userform

Private Sub UserForm_Initialize()
With Balken
.Height = Application.Height
.Width = Application.Width
End With
End Sub

Option Explicit

Private Sub UserForm_Activate()
' Startet das Makro zum öffnen meiner seite usw '
Call laufen1
Call start1
Unload Me
End Sub

Sub start1()
Dim intCol As Integer
Dim intRow As Integer
For intRow = 1 To 4
For intCol = 6 To 216
Sleep 10
Image1.Left = Image1.Left + 1
DoEvents
Next intCol
Image1.Top = Image1.Top + 12
For intCol = 216 To 6 Step -1
Sleep 10
Image1.Left = Image1.Left - 1
DoEvents
Next intCol
Image1.Top = Image1.Top + 12
Next intRow
Image1.Top = 6
Image1.Left = 6
End Sub
Anzeige
AW: Hinter bewegter Userform weiter arbeiten
27.06.2005 10:40:14
Heili
Ich meinte:IN der Userform fliegt das "Bitte warten" rum. hihi
AW: Hinter bewegter Userform weiter arbeiten
27.06.2005 11:21:41
Hajo_Zi
Hallo heili,
und ich wollte damit ausdrücken das Dein Programmablauf falsch ist.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige