Office: Beenden einer bzw. mehrerer Userformen

Hallo zusammen,
Im Rahmen meiner Arbeit darf ich eine Excelmappe modifizieren, die zu jedem Monat diverse Daten beinhaltet (Name des Kunden, Anzahl der Kunden etc.). Um diese Arbeit zu vereinfachen, möchte ich mit Hilfe eines/mehrerer makros die entsprechenden Werte der Reihe nach abfragen. Es beginnt also mit der Frage nach dem Monat, in dem der Eintrag erstellt werden soll.
Die eleganteste Lösung ist die Monate in einem DropDown Menü anzuzeigen, und nachdem dies leider nicht mittels einer Inputbox möglich ist, habe ich mich für eine Combobox entschieden. Klappt soweit auch wunderbar, jetzt soll mit Hilfe eines buttons "weiter" die nächste Abfrage laufen, mit "Abbrechen" das ganze beendet werden.

Hier der Code für die ComboBox/Dropdown

Code:

    Private Sub UserForm_Initialize()

    With ComboBox1
        .AddItem "Januar"
        .AddItem "Februar"
        .AddItem "März"
        .AddItem "April"
        .AddItem "Mai"
        .AddItem "Juni"
        .AddItem "Juli"
        .AddItem "August"
        .AddItem "September"
        .AddItem "Oktober"
        .AddItem "November"
        .AddItem "Dezember"
    End With
    End Sub

Für den Weiter Button

Code:

    Private Sub Weiter_Click()
        x = ComboBox1.Text
    If x = "Januar" Then
        Sheets("1").Activate
    End If
        If x = "Januar" Then
        Sheets("1").Activate
    End If
        If x = "Februar" Then
        Sheets("2").Activate
    End If
        If x = "März" Then
        Sheets("3").Activate
    End If
        If x = "April" Then
        Sheets("4").Activate
    End If
        If x = "Mai" Then
        Sheets("5").Activate
    End If
        If x = "Juni" Then
        Sheets("6").Activate
    End If
        If x = "Juli" Then
        Sheets("7").Activate
    End If
        If x = "August" Then
        Sheets("8").Activate
    End If
        If x = "September" Then
        Sheets("9").Activate
    End If
        If x = "Oktober" Then
        Sheets("10").Activate
    End If
        If x = "November" Then
        Sheets("11").Activate
    End If
        If x = "Dezember" Then
        Sheets("12").Activate
    End If
    Unload Me

End Sub

Und für Abbruch

Code:

Private Sub Abbruch_Click()

    Unload Me

End Sub

Die UserForms werden in meinem Makro auf die recht primitive Weise

Code:

Steuerung()

    UserForm1.Show

    UserForm2.Show

End Sub

angesteuert. Das Problem:
Wähle ich nun in meiner UserForm1, also der Abfrage nach dem Monat die Option abbrechen, so wird zwar dieses Userform abgebrochen, allerdings wird natürlich dennoch die zweite UserForm2 geöffenet. Vielmehr soll an dieser Stelle wirklich das ganze Makro abgebrochen werden...

Habt ihr irgendeine Idee wie man dieses Problem umschiffen kann, bzw habe ich von grundauf einen denkfehler begangen?

 

Hallo!

Ungetestet:
Erstelle eine globale Variable außerhalb der einzelnen Subs:

Code:

Public Abbruch As Boolean

Setze diese Variable im "Weiter"-Makro auf False und im "Abbruch"-Makro auf True.
Im "Steuerung"-Makro fragst du dann diese Variable ab:

Code:

Steuerung()
UserForm1.Show
If Abbruch Then Exit Sub
UserForm2.Show
End Sub

 

Wow, Danke für die schnelle Antwort!
Hört sich von der Idee auf jeden Fall mal äußerst gut an, jetzt müsste ich dich nur noch kurz fragen außerhalb welcher subs ich die variable definieren muss.
Wenn ich dich richtig verstanden habe in meinem UserForm1. Tue ich dies, erhalte jedoch eine Fehlermeldung. Was bewirkt denn "Public" genau, kenne nur "Dim" zur Einführung von Variablen.

Grüße

 

Hallo!

Außerhalb ALLER Subs, z.B.

Code:

Public Abbruch As Boolean

Sub Steuerung()
UserForm1.Show
If Abbruch Then Exit Sub
UserForm2.Show
End Sub

 

Danke, leider klappts nicht :'(
Es kommt zwar keine Fehlermeldung mehr, aber der Befehl bleibt völlig ohne Wirkung. Sprich ich klicke abbrechen, aber in Wirklichkeit wird nur ein unload Befehel ausgeführt und ich lande im nächsten Step.
tut mir leid für die mühe, aber ich habe auch schon das ganze web durchforstet...

 

Ja, stimmt...
Der Code "Steuerung" läuft weiter, bevor du in UserForm1 auf irgendwas geklickt hast.
Aber warum schreibst du den Befehl "UserForm2.Show" eigentlich in "Steuerung"?
Was passiert, wenn du ihn hier rausnimmst und ihn stattdessen als letzte Zeile in den Code "Weiter" packst?

 

sagen wirs mal so, der abbruch befehl geht dann, dafür stimmen ne menge andere dinge nicht mehr . ich werd jetzt mal ein paar steps weitermachen und testen und schaun worans liegt!

Hast mir aber auf jeden fall schon riesig weiter geholfen, danke!

Nur noch eins, brauch ich dann meine Steuerungsdatei überhaupt, oder könnte ich wenns denn geht mich auch von einer userform zur nächsten hangeln?

 

thx

also. habs jetzt in einem durchprogrammiert und läuft bis dato super,also danke nochmal für die hilfe!