2 x MsgBox mit ja oder nein
25.10.2021 16:07:43
Eisi
bitte nochmal um Eure sehr geschätzte Hilfe.
Was muss am Code noch angepasst werden?
Vielen Dank.
VG Eisi :-)
_____________________________________
<pre>Sub NeuesAngebotErstellen()
Dim Antwort As String
' Info für den User um was es geht
MsgBox "Blindtext Erklärung Blindtext." & vbLf & vbLf & _
"Nach drücken von >OK< kann die Freigabe bestätigt, bzw. abgebrochen werden.", 0 + vbInformation, "Neues Angebot erstellen"
' Der User trifft hier die Entscheidung
Antwort = MsgBox("Letztes Angebot löschen?", vbQuestion + vbYesNoCancel, "Neues Angebot erstellen")
' Wenn Yes
If Answer = vbYes Then
Call AngebotLoeschen
' Wenn No oder Cancel, dann beende Sub
End If
End Sub</pre>