Das Archiv des Excel-Forums

Makro unterbrechen / Userform

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

Betrifft: Makro unterbrechen / Userform
von: Carsten

Geschrieben am: 29.09.2003 09:01:52

Hallo,

gibt es eine Möglichkeit, ein Makro zu unterbrechen um eine Eingabe in eine Userform abzuwarten?

Gruß
Carsten
Bild


Betrifft: AW: Makro unterbrechen / Userform
von: Christian Winkelmann
Geschrieben am: 29.09.2003 09:16:14

Hallo Carsten,

im Editor an der Stelle wo die Userform aufgerufen wird, muss der Befehl NameUserForm.Show eingefügt werden. Das Makro läuft dann erst nach der Bestätigug der Userform weiter.

Gruß

Christian

PS:

Hallo Forum. Bin das erste mal hier. :)


Bild


Betrifft: AW: Makro unterbrechen / Userform
von: Carsten
Geschrieben am: 29.09.2003 09:39:45

Hallo Christian,

es geht hier um eine Suchfunktion bei der die Userform zur Laufzeit im Hintergrund sichtbar ist. Userform.show funktioniert daher hier leider nicht.

Gruß
Carsten


Bild


Betrifft: AW: Makro unterbrechen / Userform
von: Michael Scheffler
Geschrieben am: 29.09.2003 10:43:06

Hallo,

immer mal die Suche bemühen. Das Problem ist schon x-mal diskutiert worden.


Wenn Du die Form nichtmodal (z.B. Parameter ShowModal = False) setzen aufrufst, klappt es.

Gruß

Micha


Bild


Betrifft: AW: Makro unterbrechen / Userform
von: Carsten
Geschrieben am: 29.09.2003 11:00:33

Hallo Michael,

ich habe die Suche schon gewälzt, leider vergeblich. Dieser Beitrag ist auch schon der dritte Versuche, weil zu den ersten keine Antworten kamen.

Damit Du genau weißt, worum es geht:

Ich habe eine Userform die der Excel-Suchmaske entspricht. Ich habe jedoch zusätzlich eine Checkbox um über alle enthaltenen Tabellenblätter zu suchen.
Ich habe dann zunächst nach einem Code gesucht, der eben diese Suche über alle Blätter durchführt und diesen so gut wie möglich angepaßt. Leider wird bei den Codes die ich gefunden habe, nach einer Fundstelle eine MsgBox aufgerufen. Genau das will ich nicht.
Über Userform1.show läuft das Makro jedoch durch ohne anzuhalten. Auch, wenn ich ShowModal auf False setze.

Falls Du eine Idee hast...hier der Code wie er bisher aussieht:

Option Explicit

Private Sub CommandButton1_Click()
Dim t As Worksheet, z As Range, SuchW As String, counter As Integer, ausgabe As String, knopf As Integer, erste As String, i As String
SuchW = TextBox1.Value
If SuchW = "" Then Exit Sub
For Each t In Worksheets
t.Activate
Set z = t.Cells.Find(SuchW)
If Not z Is Nothing Then
erste = z.Address
Do
z.Activate
UserForm1.Show
Set z = Cells.FindNext(after:=ActiveCell)
Loop Until erste = z.Address
End If
If UserForm1.CheckBox3 = Enabled Then Else Exit Sub
Next t
End Sub


Private Sub CommandButton3_Click()
Unload Me
End Sub


Private Sub UserForm_Initialize()
ComboBox2.AddItem "In Zeilen"
ComboBox2.AddItem "In Spalten"
ComboBox2.ListIndex = 0
ComboBox1.AddItem "Formeln"
ComboBox1.AddItem "Werte"
ComboBox1.AddItem "Kommentare"
ComboBox1.ListIndex = 0
End Sub


Gruß
Carsten


Bild


Betrifft: AW: Makro unterbrechen / Userform
von: Michael Scheffler
Geschrieben am: 29.09.2003 11:40:44

Hi,

warum soll die Checkbox nicht mit auf Dein Suchformular?

Gruß

Micha


Bild


Betrifft: AW: Makro unterbrechen / Userform
von: Carsten
Geschrieben am: 29.09.2003 11:54:52

Hallo Michael,

das war jetzt ein Mißverständnis. Die Checkbox ist in der Userform. Die Userform ist original so aufgebuat wie die Excel-eigene Maske. Es gibt lediglich eine Checkbox zusätzlich.
Was ich nicht möchte, ist eine MsgBox wenn ein Begriff gefunden wurde. Ich möchte nur, dass das MAkro pausiert, bis wieder auf "weitersuchen" geklickt wird.

Gruß
Carsten


 Bild

Excel-Beispiele zum Thema " Makro unterbrechen / Userform"

Anwendung aufrufen und Makroausführung unterbrechen download 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