combobox change() - vorheriger Wert ermitteln
philipp
Ich möchte beim Auswählen einer Dropdownliste (Jan, Feb, ... Dez) mit einem Makro combobox change() den Inhalt einzelner Zellen auf dem Blatt löschen, wenn die Auswahl (= der Monat) verändert wurde. Bevor die Werte zurückgesetzt werden erscheint eine Messagebox, ob man das wirklich möchte "ja/Nein". Wenn ich nun "nein" klicke, wird zwar die Prozedur nicht ausgelöst, aber der zuvor ausgewählte Inhalt in der Dropdownliste ist natürlich verändert.
Gibt es eine Möglichkeit, den vorherigen Wert in der combobox wieder herzustellen?
Private Sub ComboBox1_Change()
Dim varAnswer As String
varAnswer = MsgBox("Are you sure that you want to delete all data?", vbYesNo, "Warning") _
_
If varAnswer = vbNo Then
' =>> hier müsste eine Anweisung rein, die den vorherigen Wert in der Combobox _
wiederherstellt...
Exit Sub
End If
Range("A1").ClearContents
End Sub
Vielen Dank für die Hilfe!
Philipp
Anzeige