Kombinationsfeld mit msgbox + vbYesNo
Dietmar
ich benötige ein weiteres Featur in meinem Progrämmle.
Ich habe ein Kombinationsfeld, dem ich eine Liste von Ziffern 1- 20 zugewiesen habe. Das Ergebnis der Auswahl wird in A1 gezeigt.
Dem Kombinationsfeldes habe ich nachfolgendes Makro zugewiesen.
Wie kann ich erreichen, dass die Dropdownauswahl NICHT ausgeführt wird, wenn ich auf NEIN klicke?
Der neue Wert in A1 soll also nur dann akzeptiert werden, wenn ich JA klicke.
Option Explicit
Sub Abfrage()
If MsgBox("Soll neuer Wert akzeptiert werden?", vbQuestion + vbYesNo, "Abfrage") = vbNo Then
MsgBox "NEIN", vbExclamation
End
Else
MsgBox "OK, neue Auswahl berücksichtigen"
End If
End Sub
Vielen Dank
Dietmar aus Aachen
Anzeige