Das Archiv des Excel-Forums

Makro soll trotz UserForm weiterlaufen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Makro soll trotz UserForm weiterlaufen
von: Richi

Geschrieben am: 08.10.2003 11:25:09

Hallo Alle

Mein Problem ist folgendes:
Ich rufe aus einer Sub eine UserForm auf (mit .show). Diese UserForm soll jedoch nur als Statusanzeige, des im Hintergrund laufenden Makros dienen, und von diesem laufend aktualisiert werden. Wenn ich die UserForm jedoch aufrufe, passiert nichts weiter, bis ich bzw. der User diese wieder schliesst.
Ich will jedoch, dass die Userform angezeigt wird, aber das Makro trotzdem im Programmcode weiterfährt.
Ist das möglich, und wenn ja wie?

Danke für eure Hilfe
Bild


Betrifft: AW: Makro soll trotz UserForm weiterlaufen
von: Hajo_Zi
Geschrieben am: 08.10.2003 11:39:20

Hallo Richi

starte Dein Makro aus der Userform



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/



Bild


Betrifft: Neues Problem
von: Richi
Geschrieben am: 08.10.2003 14:14:35

Hi, danke für deine Antwort

Also, ich hab das bis jetzt so gelöst:
Wenn das XLS-File geöffnet wird, wird mit "workbook_open" diese UserForm angezeigt. Sobald diese initialisiert, startet das wesentliche Makro.

Nun hab ich aber ein neues Problem:
Im wesentlichen Makro wird eine weitere UserForm angezeigt, in der der User verschiedene Daten eintragen kann, und die er anschliessend auch wieder schliessen "darf". Sobald diese UserForm geschlossen wird, beginnt das Makro merkwürdigerweise wieder von vorne. Ich habe keine Ahnung warum das so ist, wenn ich den Code schrittweise überprüfe (mit F8), läuft alles einwandfrei durch. Was kann ich da machen, ausser verzweifeln? ;-)

Gruss & thx


Bild


Betrifft: AW: Neues Problem
von: Hajo_Zi
Geschrieben am: 08.10.2003 14:20:38

Hallo Richi

1. die meisten haben hier keine Glaskugel
2. die meisten haben kleinen Heiligenschein
3. die meisten können nicht auf Deinen Rechner schauen

für alle diese Leute ist die Antwort schneller erstellt, wenn Du den relevanten Code postest.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/



Bild


Betrifft: AW: Neues Problem
von: Richi
Geschrieben am: 08.10.2003 15:54:45

Ok, ich hoffe, dieses sind die relevanten Stellen.



Private Sub workbook_open()
With Statusfenster
.status_bar.Width = 0        'Der Fortschrittsbalken wird auf 0 gesetzt
.Show                        'Das Statusfenster wird angezeigt
End With
End Sub



Sobald die Mappe geöffnet wird, wird das Statusfenster angezeigt.




Private Sub UserForm_activate()
If first_run <> True Then
main.main_run    first_run = True
'Mit der Variable "first_run" soll verhindert werden, dass wenn das Statusfenster
'ein zweites Mal aktiviert wird, dass das Makro "main.main_run" erneut startet
End If
End Sub



Sobald die UserForm angezeigt wird, wird das Makro gestartet


Sub main_run()

Const b_worksteps As Byte = 5
Dim open_cancel As Boolean
Dim retry_response As Byte

open_loop:
open_cancel = False
retry_response = 0

Statusfenster.workstep.Caption = "Arbeitsschritt 0 / " & b_worksteps

a_openfile.open_csvfile open_cancel
'Sobald diese Arbeitsmappe geöffnet wird, öffnet sich ebenfalls der "Datei öffnen" Dialog
'damit der User eine Comma-Delimited-Text-Datei öffnen kann

If open_cancel = True Then
Statusfenster.Hide
Exit Sub
End If

optionen.Show <--- Sobald diese UserForm beendet wird, beginnt das Makro von neuem
'Der User wird aufgefordert verschiedene Einstellungen die Prozedur betreffend vorzunehmen

Application.ScreenUpdating = False
Application.Wait (Now + TimeValue("0:00:01"))

... hier folgt weiterer Code, der meiner meinung nach, nichts dazu beiträgt.

End Sub





Der Code wirkt vielleicht ein bisschen chaotisch, aber nehmt es mir nicht übel, ich hab erst vor kurzem mit dem Makro-Programmieren begonnen.

Wie gesagt, das Makro "main-run" läuft einwandfrei, wenn ich es separat starte, also nicht mit der workbook_open().

@Hajo, sagt dir das jetzt mehr? :)


Bild


Betrifft: AW: Neues Problem
von: Hajo_Zi
Geschrieben am: 08.10.2003 17:02:40

Hallo Richi

der Beitrag geht schon über mehrere Beiträge und auch über eine gewisse Zeit und es gibt Leute die mehr als ein Beitrag am Tag schreiben. Da wäre ein Hinweis um was es geht nicht schlecht.

Bei so einem Code wäre es besser gewesen eine Datei hochzuladen. Du spricht Steuerelemente und Userformen an und das ist sehr Zeitaufwendig dies nachzubauen.

Diese Zeit nehme ich mir nicht.



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

http://home.media-n.de/ziplies/



 Bild

Excel-Beispiele zum Thema " Makro soll trotz UserForm weiterlaufen"

Diagramm in Userform download XL-Dateien in UserForm listen download
UserForm an Excel-Fenster anpassen download Fundstellen in UserForm listen download
Module und UserForms austauschen download In einer Schleife auf Elemente einer UserForm zugreifen download
Werte in eine ComboBox einer UserForm übernehmen download Zellinhalt als Label-Aufschrift in UserForm download
Alle CheckBoxes einer UserForm ansprechen download Wenn kein Eintrag, UserForm nicht schließen download
Aktiven Drucker in UserForm wechseln download Text aus UserForm-Textbox in Variable einlesen download
UserForm in Abhängigkeit einer RefEdit-Auswahl anzeigen download Nur Buchstaben in eine UserForm-TextBox download
Wert in Tabelle suchen und in UserForm ausgeben download Tabellenblatt in UserForm download
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen download Nach Ortsauswahl neue UserForm mit Ortsteilauswahl download
Textfelder in UserForm beim Start vorbelegen download Text aus UserForm in eine Zelle schreiben download
Verhindern des Schließens einer UserForm mittels Schließkreuz download Wert in UserForm-TextBox eintragen und selektieren download
Auf UserForm-CommandButton-Klick eine Internetseite aufrufen download ComboBox-Felder in UserForm aufklappen download
Eingabekontrolle bei UserForm download UserForm-ComboBox-Feld nach Tasteneingabe aufklappen download
Userform in der Entwicklungsumgebung anzeigen download Wert aus 2. UserForm-ComboBox-Spalte berechnen download
CheckBoxes in UserForms in eine Schleife einbinden download Anzahl von CheckBoxes in einer UserForm ermitteln download
Vereinfachte Datumseingabe über UserForm download Auslesen des ausgewählten Optionsfeldes in einer UserForm download
Werte von CheckBoxes in einer UserForm abfragen download Mit Drehfeld durch UserForm-TextBoxes blättern und Daten auslesen download
Mit TextBox-Werten in UserForm rechnen download Datensätze in UserForm auswählen und im Blatt löschen download
Bilder in UserForm und Bildgröße anpassen download Aktuelle Zeit über UserForm eintragen und Rennzeit berechnen download
Werte aus UserForm-TextBox in bestimmten Formate übertragen download UserForm als Fortschrittsanzeige download
AcrobatReader mit *.pdf-Dokument über UserForm starten download Zu einer aufrufenden UserForm zurückkehren download
In einer UserForm Berechnungen aufaddieren download Matrix in UserForm-ListBox einlesen download
Bereichsnamen in UserForm-ListBox auflisten und editieren download Spalte A mehrer Mappen in UserForm und aktives Blatt download
Adressfeld aus UserForm-ComboBox füllen download Ausgewählte Werte aus UserForm-ListBoxes addieren download
Mehrfachauswahl aus UserForm-ListBoxes in Tabelle eintragen download Gruppe von UserForm-ListBoxes über eine Schleife ansprechen download