WCM Forum - Excel 2000 Zellen als ja/nein Felder?

WCM Forum (http://www.wcm.at/forum/index.php)

- Software (http://www.wcm.at/forum/forumdisplay.php?f=5)

- - Excel 2000 Zellen als ja/nein Felder? (http://www.wcm.at/forum/showthread.php?t=44523)

Excel 2000 Zellen als ja/nein Felder?

Kann man das Format einer Excel 2000 Zelle so ändern, dass daraus ein Ja/Nein Feld wird, wo ich einfach nur noch anhakerln muss, ob es erledigt ist oder nicht?

Hab zwar schon geschaut, aber noch nix dergleichen gefunden. ;)

probiers mal so

Format Benutzerformatiert #;"JA";"NEIN"

durch Eingae von 0 = Nein und 1 = JA zeigts dir JA oder Nein an

hilft dir das weiter

Ja hilft mir weiter. Sowas in der Art hab ich eh gemeint. Jetzt müsst ich es nur noch finden. Is ja schon spät, ich werd morgen noch einmal schaun, weil jetzt find ichs nicht. ;)

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: hört sich noch besser an, werd ich gleich amal programmieren. ;)

Das was daran wahrscheinlich leider nicht funktionieren wird ist, wenn ich die Datei dann in Pocket Excel umwandle, dass des dort dann auch noch funktioniert. Weil ich glaub nicht das es die Instanz validate und die anderen restlichen Instanzen dort auch gibt. Aber ich werds einfach mal probieren.