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

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.
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 (26)
Noch keine Bewertungen. Bewerten Sie als Erster!
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?
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
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?
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.
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
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
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
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.
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.
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!
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.
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?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Mai,
Tut mir leid, dass ich deinen Punkt nicht verstanden habe.
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.
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.
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.
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.
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.
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
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?
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
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.
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"
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
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....
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
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