Hallo, da hier doch so viele Könner unterwegs sind: Ich hänge schon wieder fest.
Ich habe zwei msg-Boxen vbYesNoCancel. Wenn die erste Box mit Ja bestätigt wird, wird eine Prozedur gestartet.
Wenn ich den Button Abbrechen klicke, soll die zuletzt geöffnete Userform neu geladen und die Sub beendet werden.
Wenn ich den Nein Button klicke öffnet sich die nächste msg Box vbYesNoCancel.
Wenn nun Ja geklickt wird, wird wieder eine Prozedur gestartet, beim Abbrechen wieder die Userform neu geladen und die Sub beendet.
Und bei Nein wird eine weitere Prozedur gestartet.
Eigentlich dürfte es ja nicht schwer sein, aber bei mir hängt es. Die Userform wird neu geladen aber die nächste msg Box öffnet nur und dann passiert nichts, wenn ich dort einen Button klicke.
So sieht es nun aus (und vielen Dank im Voraus):
Public Sub InspectionCriterion()
Dim msg As String, msg2 As String, msg3 As String
msg = MsgBox("Ist das Merkmal ein Gewinde?", vbYesNoCancel + vbQuestion, "")
If msg = vbYes Then
UserFormThread.Show
ElseIf msg = vbNo Then
msg2 = MsgBox("Ist das Merkmal zu messen?", vbYesNoCancel + vbQuestion, "")
ElseIf msg = vbCancel Then
Call InspectionFeatures
Exit Sub
If msg2 = vbYes Then
UserFormDimension.Show
ElseIf msg2 = vbNo Then UserFormText.Show
Else
Exit Sub
End If
End If
End Su
