AW: Kontrollkästchen in ganze Spalte einfügen
06.08.2014 13:49:05
Daniel
Hi
wenn du viele Kontrollkästchen haben willst, ist es sinnvoller, die Zellen selbst als Kontrollkästschen zu verwenden.
dazu gehst du so vor:
1. Formatiere die Zellen, welche als Kontrollkästchen dienen sollen, mit der Schriftart "Wingdings2"
2. füge das Leerkästchen ein, indem du eine Zelle markierst, die ALT-Taste gedrückt hälst und 0163 auf dem NUM-Block eintippst. das Kästchen kannst du dann per Copy-Paste in die anderen Zellen übertragen.
3. zum Umschalten bei KLICK benötigst du diesen Code im Modul des Tabellenblatts:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
Select Case Left(Target.Value, 1)
Case Chr(163): Target.Value = Chr(82): Target.Offset(0, 1).Select
Case Chr(82): Target.Value = Chr(163): Target.Offset(0, 1).Select
End Select
Application.EnableEvents = True
End Sub
zum Modul des Tabellenblatts kommst du, wenn du mit der rechten Maustaste auf den Reiter des Tabellenblatts klickst und "Code anzeigen" im Kontextmenü auswählst.
der Code prüft bei Klick auf eine Zelle, ob sie ein Kästchensymbol enthält und wenn ja, wird das andere Kästchen eingefügt.
Gruß Daniel