Abbrechen Button

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

Betrifft: Abbrechen Button
von: bastian
Geschrieben am: 10.03.2005 20:08:27
Hi,
ich hab noch eine wahrscheinlich banale Frage:
Ich möchte in einer Userform eine "Abbrechen" Schaltfläche einfügen. Gibt es eine Möglichkeit direkt auf Mausklick das Makro zu unterbrechen ? Eventuell noch eine Sicherheitsabfrage einzufügen, per MsgBox sowas wie "Wollen Sie wirklich abbrechen ?" und Zwei "Ja" und "Nein" Buttons ?
Hat jemand einen Tipp dazu ?
Gruss und Dank,
Bastian

Bild

Betrifft: AW: Abbrechen Button
von: Ramses
Geschrieben am: 10.03.2005 20:31:31
Hallo
"VBA gut"
Bist du da sicher ;-) ?
Den Code deiner Schaltfläche zuweisen
Dim Qe as Integer
Qe = Msgbox("Wollen Sie wirklich abbrechen ?", vbQuestion+VbYesNo,"Rückfrage")
If Qe = vbNo Then
Exit Sub
End If

Gruss Rainer
Bild

Betrifft: AW: Abbrechen Button
von: bastian
Geschrieben am: 10.03.2005 22:10:31
Hi Rainer,
in der Tat "VBA gut" - denn ich habe es in der Zwischenzeit selbst geschafft. Ich hatte in die falsche Richtung gedacht, denke mich gerade erst wieder in VB ein. Trotzdem vielen Dank !
Gruss Bastian
Bild

Betrifft: AW: Abbrechen Button
von: bastian
Geschrieben am: 10.03.2005 22:31:27
Hi,
eine Sache hatte ich noch vergessen und noch nicht zufriedenstellend gelöst. Ich beende die Prozedur durch folgenden Code:
If CommandButton1.Tag = "cancel" Then
Rückgabewert = MsgBox("Wollen Sie wirklich abbrechen ?", vbYesNo, "Bestätigung")
If Rückgabewert = "6" Then
UserForm1.Hide !!!???
Exit Sub
End If
End If
Meine Frage betrifft das Schliessen der UserForm, ich habe nur .hide als Methode gefunden, sowas wie .close wäre mir lieber, das gibts aber nicht und mit hide verstecke ich es ja nur, beim wiederstarten der UserForm stehen dann noch alle alten Werte drin, das will ich nicht, ich will sie entgültig abschiessen. Kann mir jemand helfen ?
Gruss & dank,
Bastian
Bild

Betrifft: AW: Abbrechen Button
von: Bert
Geschrieben am: 10.03.2005 22:59:09
If CommandButton1.Tag = "cancel" Then
Rückgabewert = MsgBox("Wollen Sie wirklich abbrechen ?", vbYesNo, "Bestätigung")
If Rückgabewert = "6" Then
Unload Me
Exit Sub
End If
End If
Bert
Bild

Betrifft: AW: Abbrechen Button
von: bastian
Geschrieben am: 10.03.2005 23:08:14
SUPER, DANKE !
Gruss B.
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Abbrechen Button"