Kontrollkästchen nur Anklickbar, aber keine Eingabe zulassen

Forumthread: Kontrollkästchen nur Anklickbar, aber keine Eingabe zulassen
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Kontrollkästchen nur Anklickbar, aber keine Eingabe zulassen

10.12.2024 12:53:52

Stefan_StS

Hallo an alle,

ich habe viel gesucht und probiert, leider aber leider keine Lösung für mein Problem gefunden.

Ich habe Kontrollkästchen in meiner Arbeitsmappe (die angibt ob etwas erledigt ist).
Leider gibt es Nutzer der Tabelle die das Kontrollkästchen nicht anklicken, sondern liebe Text schreiben.

Ich möchte die Eingabe von allem möglichen (Text, Zahlen, usw.) verhindern und nur das anklicken des Kontrollkästchens zulassen!
Über die Datenüberprüfung geht es leider nicht, da kann ich ja nur bestimmte Werte zulassen, aber eben nicht das es nur den Mausklick in das Kontrollkästchen zulässt.
Mit VBA/Makros kenne ich mich leider nicht so aus.

Gibt es eine Möglichkeit das man bei einem Kontrollkästchen nur den Mausklick (damit das Kontrollkästchen auf WAHR oder FLASCH setzt), aber jegliche andere Eingabe im Feld verbiete?

Danke schon mal im voraus für eure Hilf!

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Kontrollkästchen nur Anklickbar, aber keine Eingabe zulassen

10.12.2024 13:04:49

{Boris}
AW: Kontrollkästchen nur Anklickbar, aber keine Eingabe zulassen

10.12.2024 14:03:23

GerdL

AW: Kontrollkästchen nur Anklickbar, aber keine Eingabe zulassen

10.12.2024 13:04:49

{Boris}

Hi,

in Deiner Excelversion nimm die neuen Kontrollkästchen aus dem Menü "Einfügen".
Hinterleg in den Zellen zusätzlich eine Datenüberprüfung, Benutzerdefiniert - hier bezogen auf A1:

=ODER(A1=WAHR;A1=FALSCH)

Entschütze diese Zellen und schütze anschließen das Blatt.

VG, Boris

AW: Kontrollkästchen nur Anklickbar, aber keine Eingabe zulassen

10.12.2024 14:03:23

GerdL

Hallo Stefan,

den Code bitte ins Modul der Tabelle einfügen.

Private Sub Worksheet_Change(ByVal Target As Range)



    Const cstrZelle = "A2" 'anpassen

    

    Dim Rng As Range

    

    

    For Each Rng In Target.Cells

        

        If Rng.Address(0, 0) = cstrZelle Then

            Select Case Rng.Text

                Case "FALSCH", "WAHR"

                Case Else

                    Application.EnableEvents = False

                    Application.Undo

                    Application.EnableEvents = True

            End Select

        End If

    

    Next



End Sub