Wie verwende ich das Kontrollkästchen, um Zeilen oder Spalten in Excel ein- oder auszublenden?

Angenommen, Sie müssen ein Kontrollkästchen verwenden, um bestimmte Zeilen oder Spalten ein- oder auszublenden. Wenn beispielsweise das Kontrollkästchen Active X Control aktiviert ist, werden bestimmte Zeilen oder Spalten angezeigt, andernfalls werden sie ausgeblendet. Dieser Artikel zeigt Ihnen, wie Sie das Kontrollkästchen verwenden, um Zeilen oder Spalten in Excel mit Details ein- oder auszublenden.

Verwenden Sie das Kontrollkästchen, um Zeilen oder Spalten mit VBA-Code ein- oder auszublenden

Verwenden Sie das Kontrollkästchen, um Zeilen oder Spalten mit VBA-Code ein- oder auszublenden

Der folgende VBA-Code kann Ihnen helfen, bestimmte Zeilen oder Spalten mit einem Kontrollkästchen ein- oder auszublenden.

1. Nachdem Sie ein Active X Control-Kontrollkästchen in das Arbeitsblatt eingefügt haben, klicken Sie mit der rechten Maustaste auf das Kontrollkästchen und wählen Sie es aus Code anzeigen aus dem Kontextmenü. Siehe Screenshot:

2. In dem Microsoft Visual Basic für Applikationen Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Verwenden Sie das Kontrollkästchen, um Zeilen oder Spalten ein- oder auszublenden

Private Sub CheckBox1_Click()
    [C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

Anmerkungen:

1. Im VBA-Code [CD]. Gesamte Spalte bedeutet, dass die Spalten C und D durch Aktivieren oder Deaktivieren des entsprechenden Kontrollkästchens ein- oder ausgeblendet werden.

2. Um bestimmte Zeilen wie Zeile 6: 9 auszublenden oder anzuzeigen, ändern Sie bitte die [CD]. Gesamte Spalte zu [6: 9]. Ganze Reihe im VBA-Code.

3. Drücken Sie die Taste Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster.

4. Schalten Sie jetzt bitte die aus Entwurfsmodus unter dem Entwickler:in / Unternehmen Registerkarte wie unten Screenshot gezeigt:

Wenn das Kontrollkästchen aktiviert ist, werden von nun an die angegebenen Zeilen oder Spalten angezeigt. Wenn diese Option deaktiviert ist, werden die angegebenen Zeilen oder Spalten ausgeblendet.

In Verbindung stehende Artikel:

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 (26)

Noch keine Bewertungen. Bewerten Sie als Erster!

Wayne Bailey

vor etwa 5 Jahren

#19936

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Gibt es eine Möglichkeit, das Kontrollkästchen "Verwenden Sie das Kontrollkästchen zum Ausblenden / Einblenden von Zeilen oder Spalten mit VBA-Code" in einem geschützten Arbeitsblatt zu verwenden?

antworten

Pieter Ramaut

vor etwa 5 Jahren

#21920

Dieser Kommentar wurde vom Moderator auf der Website minimiert

@ Wayne:

Privates Sub-CheckBox1_Click()
ActiveSheet.Unprotect Password:="xxxxx"
Rows("284:351").EntireRow.Hidden = Not CheckBox1
ActiveSheet.Protect-Passwort:="xxxx"
End Sub

antworten

Cole

vor etwa 4 Jahren

#24379

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Es scheint, als würde dieser Code nur in eine Richtung gehen, dh sie nur ausblenden und nicht einblenden, wenn sie angeklickt werden. Gibt es eine Möglichkeit, dies zu korrigieren?

antworten

Kentthegreet Cole

vor etwa 4 Jahren

#24380

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Wir haben dasselbe Problem, aber ich habe herausgefunden, dass wir Formularsteuerelemente und keine ActiveX-Steuerelemente verwenden. Der Code funktioniert perfekt in der ActiveX Control Checkbox-Schaltfläche. Deaktivieren Sie einfach den Designmodus, damit Sie auf das Kontrollkästchen klicken können.

antworten

Kent Thegreet Cole

vor etwa 4 Jahren

#24381

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Wir haben das gleiche Problem, finden aber einen Weg, es zum Laufen zu bringen. Bitte verwenden Sie das Kontrollkästchen ActiveX Controls und nicht das Kontrollkästchen Form Control. Der Code funktioniert perfekt mit dem ActiveX-Kontrollkästchen.

Privates Sub-CheckBox1_Click()
[C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

antworten

Report

vor etwa 3 Jahren

#28132

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo,

Ich versuche, diesen Code zu verwenden, um das Kontrollkästchen auf einem separaten Blatt auszublenden/einzublenden. Was muss ich hinzufügen, damit das funktioniert? Danke im Voraus.

Privates Sub-CheckBox1_Click()
[C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

antworten

Kristall Ed

vor etwa 3 Jahren

#28133

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Guten Tag,
Wie der folgende Code zeigt, ersetzen Sie bitte "Sheet4" durch Ihren separaten Blattnamen.

Privates Sub-CheckBox1_Click()
[Sheet4!C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

antworten

Report

Lou

vor etwa 3 Jahren

#29360

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo,

Hallo, ich habe den Code gemacht, es funktioniert gut, aber wenn ich versuche, dasselbe in mehr als einem Kontrollkästchen auf demselben Blatt zu machen, arbeiten sie "zusammen", die Zeilen werden nur ein- oder ausgeblendet, wenn alle drei Kontrollkästchen ausgewählt sind.
Ich versuche, diese drei Kontrollkästchen unabhängig voneinander zu machen. Und lassen Sie die Benutzer jeweils nur ein Kästchen markieren.

antworten

Kristall Lou

vor etwa 3 Jahren

#29361

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo Lou,
Bitte stellen Sie sicher, dass es sich bei den von Ihnen erstellten Kontrollkästchen um ActiveX-Steuerelemente handelt. Diese Kontrollkästchen funktionieren unabhängig voneinander in Ihrem Arbeitsblatt.
Danke für deinen Kommentar.

antworten

Report

Therese

vor etwa 3 Jahren

#30984

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo,

Gibt es eine Möglichkeit, nur eine Zeile auszublenden. Wenn ich 6:9 eingebe, werden alle Zeilen ausgeblendet, aber wenn ich nur 6 einsetze, kommt es als Fehler heraus. Würde mich über eure Hilfe freuen, danke!

antworten

Kristall Therese

vor etwa 3 Jahren

#30985

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo,
Bitte ändern Sie die zweite Zeile im Code in:
[6:6].EntireRow.Hidden = Not CheckBox1.
Danke für deinen Kommentar.

antworten

Report

Mai

vor etwa 3 Jahren

#31355

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Ich habe versucht, die ersten drei Rollen einzublenden, aber es hat nicht funktioniert. Wie kann ich das machen?

antworten

Kristall Mai

vor etwa 3 Jahren

#31356

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo Mai,
Tut mir leid, dass ich deinen Punkt nicht verstanden habe.

antworten

Report

angela

vor etwa 3 Jahren

#31530

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Es hat funktioniert, aber als ich die Datei gespeichert und erneut geöffnet habe, funktioniert es nicht. Ich habe versucht, es als Makro-Excel-Tabelle und als normale Arbeitsmappe zu speichern. Was habe ich falsch gemacht? Ich möchte es jemand anderem zur Verwendung geben und möchte nicht, dass sie verwirrt werden.

antworten

Kristall angela

vor etwa 2 Jahren

#31531

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo Angela, nachdem Sie den Code zur Arbeitsmappe hinzugefügt haben, klicken Sie bitte auf Datei > Speichern unter, wählen Sie aus, wo die Datei gespeichert werden soll, und wählen Sie im Dialogfeld Speichern unter die Option Excel-Arbeitsmappe mit Makros (*.xlsm) aus der Dropdown-Liste Dateityp , und klicken Sie abschließend auf Speichern. Senden Sie dann diese Excel-Arbeitsmappe mit Makros an andere.

antworten

Report

Maggie

vor etwa 2 Jahren

#32767

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Sehr nützlich, aber wie kann ich damit nur einen Teil der Tabelle ausblenden? Ich meine zum Beispiel die Zellen B2:B11, wie kombiniert man diese beiden Funktionen? Vielen Dank.

antworten

Eric

vor etwa 1 Jahr

#35115

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Was wäre, wenn ich 3 verschiedene Kontrollkästchen verwenden wollte und wollte, dass sie jeweils unterschiedliche Zeilengruppen ausblenden? Ich habe alles versucht und geschaut. Wenn ich versuche, diesen Code zu ändern, scheinen sich die Kontrollkästchen gegenseitig zu stören.

antworten

etb1025

vor etwa 1 Jahr

#35116

Dieser Kommentar wurde vom Moderator auf der Website minimiert

antworten

Report

Welington Mesquita

vor ungefähr 5 Monaten

#39373

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Esse código oculta, mas não executa a reexibição quando desmarcar.

Alguém Pode Complementar Por Favor? Preciso de um código para ocultar e reexibir colunas indicadas.

Privates Sub-CheckBox1_Click()
[C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

Obrigado

antworten

Kristall Welington Mesquita

vor ungefähr 5 Monaten

#39441

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo Welington Mesquita,
Dieser VBA-Code kann Folgendes erreichen:
Wenn das Kontrollkästchen1 aktiviert ist, wird die Spalte C:D angezeigt;
Wenn es deaktiviert ist, werden die Spalten C:D ausgeblendet.
Der Code funktioniert in meinem Fall gut. Welche Excel-Version verwendest du?

antworten

Report

Welington Mesquita

vor ungefähr 5 Monaten

#39398

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Guten Morgen!
Espero que todos estejam bem!

Tenho uma situação onde preciso ocultar / reexibibir a coluna utilizando o Control ActiveX quando solecionado o item.

Beispiel: Tenho coluna com os nomes: Planejado, Realizado, Análise Vertical, Análise Vertical, Variação (R$) e Variação (%), no entanto, que poder selecionar individual as colunas intercalando se necessário. Selecionar somente a coluna Realizado e Variação, mesmo não esstando na sequencia.

Ich danke Ihnen,
Welington

antworten

Kristall Welington Mesquita

vor ungefähr 5 Monaten

#39445

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo,
Tut mir leid, ich verstehe nicht, was du meinst. Würden Sie bitte einen Screenshot Ihrer Daten bereitstellen?
Möglicherweise müssen Sie einen Screenshot oder eine Beispieldatei anhängen, um das aufgetretene Problem klarer zu beschreiben.

antworten

Report

Welington Mesquita

vor ungefähr 5 Monaten

#39402

Dieser Kommentar wurde vom Moderator auf der Website minimiert

E para ocultar colunas não sequências?
Beispiel: A e C

Esta situação seria aplicado de que forma para A e C ?

"Sub CheckBox1_Click privada ()
[C:D].EntireColumn.Hidden = Não CheckBox1
End Sub"

antworten

Kristall Welington Mesquita

vor ungefähr 5 Monaten

#39446

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo,
Der folgende VBA-Code kann Ihnen einen Gefallen tun. Bitte versuchen Sie es.

Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub

antworten

Report

Vintage Rose

vor ungefähr 2 Monaten

#41159

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Bei mir werden die Zellen nicht ausgeblendet, wenn das Kontrollkästchen wieder aktiv ist.

Mein Ziel ist es mit dem aktivenren des Kontrollkästchens die Zeile 7 einzublenden und wenn ich den Haken wieder entferne sollte Zeile 47 wieder ausgeblendet sein.
Hilfe....

antworten

Kristall Vintage Rose

vor ungefähr 2 Monaten

#41471

Dieser Kommentar wurde vom Moderator auf der Website minimiert

Hallo Rose,
Der folgende VBA-Code kann helfen.

Private Sub CheckBox1_Click()
[47:47].EntireRow.Hidden = Not CheckBox1
End Sub

antworten

Report

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