Msg-Box - Nach Abbruch Neustart
19.07.2006 17:38:14
Michael
Ich habe eine Userform über die ich eine Suche laufen lasse. Neben einem Button zum Start gibt es einen zum Abbruch. Bei Abbruch soll noch eine Abfrage kommen. Sollte man mit OK bestätigen, wird die Userform verlassen. Bricht man ab, soll man wieder zum ersten Makro der Userform gelangen um quasi neu zu beginnen:
'Abbrechen
Private Sub CommandButton2_Click()
Unload Me
If MsgBox("Wollen Sie wirklich abbrechen?", vbOKCancel, "A B B R E C H E N") = vbOK Then
MsgBox "Vorgang abgebrochen!", 64, "H I N W E I S"
Else
MsgBox "Geben Sie einen Suchbegriff ein!", 64, "H I N W E I S"
'Hier soll das
Private Sub CommandButton1_Click()der Userform erneut ausgeführt werden
End If
End Sub
Wie muss ich das einbauen? Danke für eure Hilfe!
Anzeige