Verzweigung außerhalb umgebener Prozedur @Erich

Hallo Erich,
also Makro wird über Schaltfläche in Tabellenblatt gestartet,
Name


Sub Tränkerei()
End Sub

ist ein Programm um die Bedingungen für eine Berechnung einzustellen.
d.h. wie viel Wicklungen im Motor, Motorbaugröße (davon hängt die spätere Dimensionierung des Stromes ab), Anzahl Drähte, Durchmesser etc.
gesartet wird mit Userform1 wenn ok gedrückt dann userform2 dann userform3
darin enthalten mehrere Optionsfelder. die fest vorgegeben sind und je nach Typvorgabe anzuklicken sind
diesen will ich dann noch einen Rückgabewert übergeben wie ich auch noch nicht weiß wie?
aus diesen Rückgabewert dann Bedingungen um weiter zu gehen
wenn Rückgabewert1 und R.W.2 etc. dann Formel ...
Userformen über .Show angezeigt damit auch auf zweite und dritte - also wenn ich über unload.me gehe dann sind die vorherigen userformen noch sichtbar.
Kann die Mappe leider nicht hochladen, weil auf Laptop (privat) und ich hier auf rechner (arbeit) schreibe an dem ich nix anschliessen kann.
ich will praktisch nachdem ich alle drei userformen aufgerufen habe und die optionen bestätigt sind mit oben genannten rückgabewert versehen und anschließend zu


Sub Tränkerei zurückschalten.
wie Übergabe Rückgabewert?
Also wenn ich Userform3  mit "ok" verlasse dann Programm weiter
mit "zurück" (über Unload.me) zur vorherigen Userform gehe (evtl. für korrekturmaßnahmen)
mit "Abbrechen"  zu 

Sub Tränkerei gehen
hier bin ich aber im 

Sub CommandButton ("Abbrechen")
Wie kann ich innerhalb dieser Prozedur
das 

Sub Tränkerei   beenden?  Über  Exit 

Sub Tränkerei?  Geht nicht so einfach wie dachte.
hoffe es reicht so
best regards
Matze

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Mathias,
ich denke hier ist ein geordneter Rückzug aus den aktiven Prozeduren der bessere Weg. So kannst du auch wesentlich besser steuern was denn so auf dem Rückweg passieren soll
Deklariere in einem allgemeinen Modul eine boolsche Variable als Public, die bei Wert True die weitere Code-Ausführung abbrechen soll.
Bsp:
Public AbbrechenTraenkerei as Boolean
Nach jedem Aufruf eines Userforms mit Show in einer Prozedur fügst du eine Zeile ein, die prüft, ob die Abbrechen-Variable den Wert True hat, falls ja, dann Sub verlassen.
Bsp.:
...
Userform1.Show
If AbbrechenTraenkerei = True Then Exit Sub
...
Die Abbrechen-Prozedur in den Einzelnen Userforms schaut dann etwa so aus:


Private Sub CommandButton () 'Abbrechen
AbbrechenTraenkerei = True
Unload Me
End Sub

Gruß
Franz

Im Modul die Prozedur, die das 1. Form aufruft Option Explicit Public FormTestenAbbrechen As Boolean, zurueck2 As Boolean, zurueck3 As Boolean Sub FormsTesten() FormTestenAbbrechen = False '... Code UserForm1.Show If FormTestenAbbrechen = True Then MsgBox "es wird abgebrochen" Exit Sub End If MsgBox "Userforms wurden mit OK beendet" '...Code End Sub Prozeduren für die 3 Buttons im Userform1: Private Sub Button_Abrechen_Click() FormTestenAbbrechen = True Unload Me End Sub Private Sub Button_OK_Click() 'Formular beenden und weitermachen Me.Hide End Sub Private Sub Button_Userform2_Click() Userform2.Show If FormTestenAbbrechen = True Then Unload Me Exit Sub End If If zurueck2 = True Then MsgBox "Userform 2 mit zurück beendet" Else MsgBox "Userform 2 mit OK beendet" Me.Hide End If End Sub Die 4 Prozeduren im Userform2 : Private Sub Button_Abrechen_Click() FormTestenAbbrechen = True Unload Me End Sub Private Sub Button_OK_Click() 'Formular beenden und weitermachen Me.Hide zurueck2 = False End Sub Private Sub Button_Userform3_Click() Userform3.Show If FormTestenAbbrechen = True Then Unload Me Exit Sub End If If zurueck3 = True Then MsgBox "Userform 3 mit zurück beendet" Else MsgBox "Userform 3 mit OK beendet" Me.Hide End If End Sub Private Sub Button_Zurueck_Click() 'Zeigt Userform 1 wieder an Unload Me 'oder auch Me.Hide zurueck2 = True UserForm1.Repaint End Sub Prozeduren im Userform3: Private Sub Button_Abrechen_Click() FormTestenAbbrechen = True Unload Me End Sub Private Sub Button_OK_Click() 'Formular beenden und weitermachen Me.Hide zurueck3 = False End Sub Private Sub Button_Zurueck_Click() 'Zeigt Userform 2 wieder an Unload Me 'Oder Me.Hide je nach dem ob die Daten des Userforms erhaltenbleiben sollen zurueck3 = True Userform2.Repaint End Sub

Beliebteste Forumthreads (12 Monate)

Verzweigung außerhalb umgebener Prozedur @Erich

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Verzweigung außerhalb umgebener Prozedur @Erich

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread