MsgBox-Hinweis beim Buttonklick

[Bookshelf3011]

Einen schönen Sonntag alle miteinander,

ich überlege gerade, ob es möglich ist, unabhängig von einer dahinterstehenden Funktion, eine MsgBox mit einem angepassten Warnhinweis beim Buttonklick auszugeben.
Beim Klick auf z.B. "Ok" würde man zur eigentlichen Userform gelangen, beim Klick auf "Abbrechen"...naja halt den Befehl abbrechen.

Gruß

Bookshelf3011

[Kuwer]

Hallo,

ja, das ist möglich.

Gruß Uwe

[Steffl]

Hallo,

mal ein Ansatz (mit yes/no statt Ok/cancel aber das bekommst Du dann selber hin)

Code:

Sub prcFrage()
  Dim vntFrage As VbMsgBoxResult
 
  vntFrage = MsgBox("Wollen Sie die Userform starten?", vbYesNo, "Frage")
  If vntFrage = vbYes Then
     userform1.Show
  Else
     MsgBox "Es wird abgebrochen"
  End If
End Sub

[Bookshelf3011]

Hallo Steffl und Kuwer,

vielen Dank für die schnellen Antworten und den passenden Code.

Einen schönen Sonntag euch beiden.

Gruß

Bookshelf3011