Mit ein bisschen Makro...
Code:
Sub yesno()
With Sheets(1).Range("A1").Validation
.Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertInformation, _
Operator:=xlEqual, _
Formula1:="Ja,Nein", _
Formula2:="wurscht"
.InputTitle = "Boolean"
.ErrorTitle = "Boolean"
.InputMessage = "You must enter a boolean value"
.ErrorMessage = "You must enter Ja or Nein"
End With
End Sub
Sub Deleteyesno()
With Sheets(1).Range("A1").Validation
.Delete
End With
End Sub
kriegst ein Drop-Down-Feld bei der Zelle mit Werten "Ja, Nein" (wennst die Zellen irgendwo auswerten willst, empfehl ich Wahr, Falsch) und wennst was anderes eingibst, a Message-Box mit Warnung.
Sheets(index) u. Range(index) etc. musst halt noch anpassen.
hth
edit: Deleteyesno() zum löschen (no na) von dem Ding.