Wie deaktiviere oder deaktiviere ich alle Kontrollkästchen gleichzeitig in Excel?

Wie können Sie alle aktivierten Kontrollkästchen in einem Arbeitsblatt gleichzeitig deaktivieren oder deaktivieren, wie im folgenden Screenshot gezeigt? In diesem Artikel werde ich über einige Schnellcodes sprechen, um das Problem zu lösen.

doc Kontrollkästchen deaktivieren 1

Deaktivieren oder deaktivieren Sie alle aktivierten Kontrollkästchen mit VBA-Code

Deaktivieren oder deaktivieren Sie alle aktivierten Kontrollkästchen mit VBA-Code

Deaktivieren oder deaktivieren Sie alle aktivierten Kontrollkästchen (Formularsteuerelemente):

Wenn Ihre Kontrollkästchen Formularsteuerelemente sind, können Sie sie sofort mit dem folgenden VBA-Code deaktivieren:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Deaktivieren oder deaktivieren Sie alle aktivierten Kontrollkästchen (Formularsteuerelemente):

Sub ClearCheckBoxes()
'Updateby Extendoffice
    Dim chkBox As Excel.CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
            chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
End Sub

3. Dann drücken F5 Schlüssel zum Ausführen dieses Codes, und alle aktivierten Kontrollkästchen wurden im aktiven Arbeitsblatt gleichzeitig deaktiviert.

Deaktivieren oder deaktivieren Sie alle aktivierten Kontrollkästchen (ActiveX-Steuerelemente):

Wenn die Kontrollkästchen ActiveX-Steuerelemente sind, wenden Sie den folgenden VBA-Code an:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Deaktivieren oder deaktivieren Sie alle aktivierten Kontrollkästchen (ActiveX-Steuerelemente):

Sub clearcheckbox()
'Updateby Extendoffcie
    Dim c As Object
    For Each c In ActiveSheet.OLEObjects
        If InStr(1, c.Name, "CheckBox") > 0 Then
            c.Object.Value = False
        End If
    Next
End Sub

3. Dann drücken F5 Schlüssel zum Ausführen dieses Codes, und alle aktivierten Kontrollkästchen wurden im aktiven Arbeitsblatt gleichzeitig deaktiviert.

Fügen Sie mehrere Kontrollkästchen gleichzeitig in die Auswahl ein

Kutools for Excel's Kontrollkästchen für Batch-Einfügung Mit dem Dienstprogramm können Sie schnell mehrere Kontrollkästchen gleichzeitig einfügen. Klicken Sie hier, um Kutools für Excel herunterzuladen!

Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.

Lesen Sie mehr... Kostenfreier Download... Kauf...

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!

Lesen Sie mehr... Kostenfreier Download... Kauf...

Kommentare (14)

Noch keine Bewertungen. Bewerten Sie als Erster!

biqBob

vor etwa 4 Jahren

#25238

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Vielen Dank für diesen VBA-Code, hat sehr geholfen.

FYI für Leute, die es nicht zum Laufen bringen, indem sie F5 drücken, einfach:

Registerkarte „Entwickler“ > Makros > wählen Sie das gerade erstellte Modul aus und klicken Sie auf „Optionen“ > geben Sie ein Zeichen für die Tastenkombination ein, z. B. Strg+j oder Strg+k.

antworten

R. Rothmann biqBob

vor etwa 2 Jahren

#25239

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Vielen Dank für Ihre Hilfe dabei. Es wird sehr geschätzt. Bitte beachten Sie jedoch: DIE RECHTSCHREIBUNG IM CODE FÜR SCHRITT #2 IST FALSCH. VBA-Code: Deaktivieren oder deaktivieren Sie alle aktivierten Kontrollkästchen (ActiveX-Steuerelemente):
Sub clearcheckbox()
'Updateby Extendoffcie
Dim c als Objekt
Für jedes c in ActiveSheet.OLEObjects
Wenn InStr(1, c.Name, "CheckBox") > 0 Then
c.Object.Value = False
End If
Weiter
End Sub

BITTE BEACHTEN SIE, DASS DAS WORT „Extendoffcie“ NICHT RICHTIG GESCHRIEBEN IST. MUSS ES NICHT SEIN“Extendoffice„?? Wie auch immer, ich wollte das nur rausbringen

antworten

Ariel

vor etwa 3 Jahren

#31682

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Was wäre, wenn ich eine Schaltfläche verwenden wollte, um das Makro zum Löschen der Kästchen zu aktivieren?

antworten

skyyang Ariel

vor etwa 3 Jahren

#31683

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo Arielle,
Um eine Schaltfläche zum Aktivieren des Makros zu verwenden, sollten Sie zuerst eine Schaltfläche aus der Dropdown-Liste Formen einfügen und dann mit der rechten Maustaste auf die Schaltfläche klicken, Makro zuweisen aus dem Kontextmenü auswählen und dann den Makronamen im Dialogfeld Makro zuweisen auswählen . Klicken Sie dann auf OK, und der Makrocode wird mit der Schaltfläche verknüpft.
Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!

Anhänge anzeigen (1 / 5)

antworten

Report

Juni

vor etwa 2 Jahren

#33393

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Wie deaktiviere ich nur die Kästchen in einem bestimmten Zellbereich im aktiven Blatt? Ich habe 3 Listen in einem Blatt (tägliche/wöchentliche/monatliche Aufgaben) und wollte für jede Liste eine Schaltfläche "Alle löschen" erstellen.

antworten

Reika

vor etwa 1 Jahr

#36759

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Große Hilfe! Danke!

antworten

vor etwa 1 Jahr

#36814

Dieser Kommentar wurde vom Moderator auf der Website minimiert

OMG DANKE, DIESE WEBSITE IST EIN LEBENSRETTER :)

antworten

Linds

vor etwa 1 Jahr

#37278

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Merci beaucoup d'avoir partagé le code pour décocher des éléments "CheckBox", cela m'a sauvé ! :o) En effet, en codant un formulaire de saisie fait dans une feuille, je cherchais à trouver un moyen de décocher les cases (en guise de réinitialisation du formulaire) et je ne trouvais pas (à part avec la méthode "Select" qui est, comme nous le savons tous, à bannir), tout simplement car :=> la propriété ".CheckBoxes" n'existe pas en propriété d'une "Worksheet" !=> l'Objet "CheckBoxes" ne figure pas non plus dans l'explorateur d'objets !C'est lunaire cette histoire...Alors merci énormément.Bien à vous.

antworten

Mandy Zhou Linds

vor ungefähr 10 Monaten

#37279

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Bonjour Lindas,
Je vous en prie. Heureux que cela aide. Pour toute question, n'hésitez pas à nous contacter. Passe une bonne journée.
Herzlichst,
Mandy

antworten

Report

Pfleger Siegfried

vor ungefähr 4 Monaten

#39962

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo,
beim Öffnen der Datei sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 nicht aktiviert sein

Privates Sub-CheckBox2_Click()
Wenn CheckBox2 = True, dann
CheckBox1 = Falsch
End If
End Sub
Privates Sub-CheckBox1_Click()
Wenn CheckBox1 = True, dann
CheckBox2 = Falsch
End If
End Sub

Danke für eure Hilfe

antworten

skyyang Pfleger Siegfried

vor ungefähr 4 Monaten

#39993

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo Siegfried
Wenn Sie eines überprüfen und ein anderes deaktivieren möchten, wenden Sie bitte den folgenden Code an:
Hinweis: Das Kontrollkästchen Hier sollten Sie das Kontrollkästchen ActiveX Control verwenden.

Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1.Enabled = False
Else
CheckBox1.Enabled = True
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2.Enabled = False
Else
CheckBox2.Enabled = True
End If
End Sub

Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!

antworten

Report

Ramón Torres

vor ungefähr 1 Monat

#41951

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Wie würden alle Kontrollkästchen auf allen Arbeitsblättern deaktiviert?

antworten

skyyang Ramón Torres

vor ungefähr 1 Monat

#42031

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo Ramón

Um alle Kontrollkästchen auf allen Blättern zu deaktivieren, wenden Sie bitte die folgenden Codes an:
Deaktivieren Sie alle Kontrollkästchen auf allen Blättern (Form Controls):

Sub Uncheckallcheckboxes()
    Dim sh As Worksheet
    For Each sh In Sheets
        On Error Resume Next
            sh.CheckBoxes.Value = False
        On Error GoTo 0
    Next sh
End Sub

Deaktivieren Sie alle Kontrollkästchen auf allen Blättern (ActiveX-Steuerelemente):

Sub uncheck_all_ActiveX_checkboxes()
    Dim ws As Worksheet
    Dim xbox As OLEObject
    For Each ws In ThisWorkbook.Worksheets
        For Each xbox In ws.OLEObjects
            ws.OLEObjects(xbox.Name).Object.Value = False
        Next
    Next
End Sub

Bitte versuchen Sie es, ich hoffe, das kann Ihnen helfen!

antworten

Report

Ramón Torres

vor ungefähr 1 Monat

#41952

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Wie würde ich alle Kontrollkästchen auf allen Arbeitsblättern deaktivieren?

antworten

Es sind noch keine Kommentare vorhanden

Hinterlassen Sie Ihre Kommentare

Als Gast posten

Einloggen

Name (erforderlich)

E-Mail (Pflichtfeld)

Bewerte diese Nachricht:

Zurücksetzen

0 Figuren

Ich akzeptiere die Bedingungen und den Zustand