Note: The other languages of the website are Google-translated. Back to English

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


Pfeil blau rechte Blase 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.
kte tab 201905

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!
officetab unten
Kommentare (14)
Noch keine Bewertungen. Bewerten Sie als Erster!
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.
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
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?
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!
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.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Große Hilfe! Danke!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
OMG DANKE, DIESE WEBSITE IST EIN LEBENSRETTER :)
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.
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
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
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!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie würden alle Kontrollkästchen auf allen Arbeitsblättern deaktiviert?
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!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie würde ich alle Kontrollkästchen auf allen Arbeitsblättern deaktivieren?
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL