Office: Einfach und universell Haekchen in Zellen setzen - ohne Steuerelemente

Einfach und universell Häkchen in Zellen setzen - ohne Verwendung von Steuerelementen und sofort boolesch auswertbar. So geht's:

• Spalte D:D: Weise ihr ein benDefFmt (benutzerdefiniertes Zahlenformat) "þ";;"¨" oder þ;;¨ oder "ü";; oder ü;; (letztere: Nur Häkchen ohne Kästchen; kann noch aufgeräumter wirken) mit der Schrift Wingdings zu
  
• Dort optional DÜ (Datenüberprüfung): D:D: 1 oder 0 (sinnvoll, wenn gerechnet werden soll, da man eine 4,321 nicht von einer 1 unterscheiden kann)
  
• Im Modul der Tabelle folgenden Rechtsklick-Code einfügen:
  Private Sub Worksheet_BeforeRightClick(ByVal T As Range, C As Boolean)
  If T.Column = 4 Then T = 1 - T: C = 1
  End Sub

Der Vorteil ist: Die Häkchen valuieren von vornherein als 1 oder 0 und sind somit ohne Umwege rechenbar. Mit Entf und einer DÜ kann man die Auswahl dann noch zellweise deaktivieren.

Häufiger Doppel-Klick erzeugt übrigens schnell das Karpaltunnelsyndrom. Daher hier als Rechts-Klick-Ereignis (das bleibt auf einem Trackpad ein einfacher Klick, nur halt auf der rechten Seite), welches inhaltlich per Tastatur ersetzt werden kann: 1 oder 0 oder Entf eingeben, auch mit Ausfüllen oder Bereich Inhalte Einfügen Werte.