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

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

Das Kontrollkästchen ist eine nützliche Funktion in Excel. Hier zeige ich Ihnen, wie Sie mit einem Kontrollkästchen ein bestimmtes Arbeitsblatt in Excel ein- oder ausblenden.

Verwenden Sie das Kontrollkästchen, um das Arbeitsblatt in Excel ein- oder auszublenden


Verwenden Sie das Kontrollkästchen, um das Arbeitsblatt in Excel ein- oder auszublenden

Angenommen, Sie haben ein Kontrollkästchen mit dem Namen checkbox1 in Ihrer Arbeitsmappe. Wenn Sie dieses Kontrollkästchen deaktivieren, möchten Sie, dass ein bestimmtes Arbeitsblatt automatisch in dieser Arbeitsmappe ausgeblendet wird, und dieses Arbeitsblatt einblenden, während Sie das Kontrollkästchen aktivieren. Bitte erreichen Sie es wie folgt.

1. Öffnen Sie das Arbeitsblatt mit dem Kontrollkästchen1, klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt und klicken Sie dann auf Code anzeigen aus dem Kontextmenü.

Hinweis: Das Kontrollkästchen sollte beim Einfügen ActiveX sein.

2. In dem Microsoft Visual Basic für Applikationen Bitte kopieren Sie den folgenden VBA-Code und fügen Sie ihn in das Code-Fenster ein. Siehe Screenshot:

VBA-Code: Verwenden Sie das Kontrollkästchen, um das angegebene Arbeitsblatt ein- oder auszublenden

Private Sub CheckBox1_Click()
    On Error Resume Next
    ThisWorkbook.Sheets("Sheet5").Visible = CheckBox1.Value
End Sub

Hinweis: Im Code ist Sheet5 der Name des Arbeitsblatts, das Sie mit dem Kontrollkästchen1 ein- oder ausblenden möchten. Bitte ersetzen Sie den Arbeitsblattnamen nach Bedarf.

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

Wenn Sie das Kontrollkästchen1 deaktivieren, wird das angegebene Arbeitsblatt „Sheet5“ von nun an automatisch ausgeblendet. Und Sie können es anzeigen, indem Sie das Kontrollkästchen aktivieren. Siehe Screenshot:


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 (11)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie machen Sie mehrere auf derselben Seite? Wie verstecke ich dann Blatt 3 oder 4 mit einem Kontrollkästchen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Privates Sub-CheckBox1_Click()
On Error Resume Next
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funciona perfectamente pero, ¿cómo se pueden ocultar varias hojas con el mismo checkbox? Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Basta con copiar la linea tantas veces como se quiera nombrando la hoja que debe ser ocultada.

Privates Sub-CheckBox1_Click()
On Error Resume Next
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie kann ich ein Blatt mit mehreren Kontrollkästchen ein- oder ausblenden? Beispielsweise muss das Blatt „MainMenu“ ausgeblendet werden, es sei denn, Checkbox_1, Checkbox_2 und Checkbox_3 sind aktiviert.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hi. Ich bin sehr neu bei ActiveX-Steuerelementen. Ich versuche, mehrere Kontrollkästchen auf einem Blatt zu haben, die bestimmte Blätter ausblenden und nicht alle oder jedes Mal dasselbe. Diese beiden Szenarien sind meine Erfahrung. Was ich erreichen muss, ist:
CheckBox1 blendet Sheet2 aus
CheckBox2 blendet Sheet3 aus
CheckBox3 blendet Sheet4 aus
CheckBox4 blendet Sheet5 aus
CheckBox5 blendet Sheet6 aus
CheckBox6 blendet Sheet7 aus
CheckBox7 blendet Sheet8 aus
CheckBox8 blendet Sheet9 aus
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Jack,
Wiederholen Sie einfach den Code und ändern Sie die Kontrollkästchennummern und die Blattnamen. Versuchen Sie den folgenden Code.

Privates Sub-CheckBox1_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet2").Visible = CheckBox1.Value

End Sub

Privates Sub-CheckBox2_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet3").Visible = CheckBox2.Value

End Sub

Privates Sub-CheckBox3_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet4").Visible = CheckBox3.Value

End Sub

Privates Sub-CheckBox4_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet5").Visible = CheckBox4.Value

End Sub

Privates Sub-CheckBox5_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet6").Visible = CheckBox5.Value

End Sub

Privates Sub-CheckBox6_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet7").Visible = CheckBox6.Value

End Sub

Privates Sub-CheckBox7_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet8").Visible = CheckBox7.Value

End Sub

Privates Sub-CheckBox8_Click()

On Error Resume Next

ThisWorkbook.Sheets("Sheet9").Visible = CheckBox8.Value

End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Kristall,
Vielen Dank...es hat wunderbar geklappt!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Kristall,
Gibt es eine Funktion, die dies umkehren würde; dh. Blatt ist ausgeblendet, wenn das Kontrollkästchen nicht aktiviert ist?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Guten Tag,
Je cherche à afficher des pages avec des cases à cocher. Les Chekbox sont toutes sur la me me feuille de calcul.
J'ai copy le premier code et l'ai dupliquer.

Privates Sub-CheckBox1_Click()
On Error Resume Next
ThisWorkbook.Sheets("Eplucher, Laver, Desinfecter").Visible = CheckBox1.Value
End Sub

Privates Sub-CheckBox2_Click()
On Error Resume Next
ThisWorkbook.Sheets("Tailler obst et légumes").Visible = CheckBox1.Value
End Sub

Malheureusement, si je ne coche pas la première case ma seconde case ne fonctionne pas. Pourriez-vous m'aider svp
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Sky53,
Ich scheine, dass Sie sich nicht geändert haben CheckBox1.Wert zum entsprechenden Kontrollkästchennamen im zweiten VBA-Code.
Bitte ändern Sie die folgende Zeile im zweiten Code:
ThisWorkbook.Sheets("Tailler obst et légumes").Visible = CheckBox1.Value
zu
ThisWorkbook.Sheets("Tailler obst et légumes").Visible = CheckBox2.Value
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