Einzelnen Beitrag anzeigen
Alt 28.01.2002, 23:00   #4
flinx
Inventar
 
Registriert seit: 08.04.2001
Beiträge: 3.101


Standard

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.
flinx ist offline   Mit Zitat antworten