Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen mit Checkbox ein- und ausblenden

Forumthread: Zeilen mit Checkbox ein- und ausblenden

Zeilen mit Checkbox ein- und ausblenden
12.05.2015 09:46:41
Thomas

Hallo zusammen,
Im Tabellenblatt 2 (Tabelle2) liegt eine Checkbox (cbc). Im Tabellenbaltt 1 (Tabelle1) steht in der Spalte E entweder "schwarz" oder "weiß". Wenn die Checkbox angeklickt ist, sollen alle Zeilen mit "schwarz" eingelendet werden und die "weiß" ausbeblendet.
Für eure Hilfe bedanke ich mich im Voraus.
Grüße
Thomas

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen mit Checkbox ein- und ausblenden
12.05.2015 10:24:13
Nepumuk
Hallo,
und umgekehrt?
Teste mal:
Option Explicit

Private Sub CheckBox1_Click()
    Dim objCell As Range
    With Tabelle1
        .Rows.Hidden = False
        If CheckBox1.Value Then
            Set objCell = .Columns(5).Find(What:="Schwarz", _
                LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
            If Not objCell Is Nothing Then
                .Columns(5).ColumnDifferences(Comparison:=objCell).EntireRow.Hidden = True
            Else
                MsgBox "Schwarz nicht gefunden.", vbCritical, "Fehler"
            End If
        Else
            Set objCell = .Columns(5).Find(What:="Weiß", _
                LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
            If Not objCell Is Nothing Then
                .Columns(5).ColumnDifferences(Comparison:=objCell).EntireRow.Hidden = True
            Else
                MsgBox "Weiß nicht gefunden.", vbCritical, "Fehler"
            End If
        End If
    End With
End Sub


Gruß

Nepumuk
Anzeige
AW: Zeilen mit Checkbox ein- und ausblenden
12.05.2015 10:42:52
Thomas
Hallo Nepumuk,
danke für deine Antwort.
"und umgekehrt?"
Ich dachte an zwei Checkboxen, einmal für "schwarz" und einmal für "weiß".
Sorry, dass habe ich nicht klar ausgedrückt.
Also wenn Checkbox1 angeklickt ist, sollen nur die Zeilen mit "schwarz" eingblendet sein, wenn Checkbox2 angeklickt ist, nur die Zeilen "weiß" eingeblendet sein.
Gruß
Thomas

Anzeige
AW: Zeilen mit Checkbox ein- und ausblenden
12.05.2015 10:44:47
Nepumuk
Hallo,
na dann hab ich ja richtig geraten.
Gruß
Nepumuk

AW: Zeilen mit Checkbox ein- und ausblenden
12.05.2015 11:11:28
Thomas
Mit deinem Code ist es so, dass wenn die Checkbox1 angeklickt ist, nur die "schwarz" angezeigt werden. Anpassen müsstest du jetzt noch, dass wenn Checkbox1 nicht angeklickt ist alle Zeilen von 2 bis 1500 ausgelendet werden.

Anzeige
AW: Zeilen mit Checkbox ein- und ausblenden
12.05.2015 15:53:23
Nepumuk
Hallo,
einfach so:
Private Sub CheckBox1_Click()
    Dim objCell As Range
    With Tabelle1
        .Rows.Hidden = False
        If CheckBox1.Value Then
            Set objCell = .Columns(5).Find(What:="Schwarz", _
                LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
            If Not objCell Is Nothing Then
                .Columns(5).ColumnDifferences(Comparison:=objCell).EntireRow.Hidden = True
            Else
                MsgBox "Schwarz nicht gefunden.", vbCritical, "Fehler"
            End If
        Else
            .Rows("2:1500").Hidden = True
        End If
    End With
End Sub


Gruß

Nepumuk
Anzeige
AW: Zeilen mit Checkbox ein- und ausblenden
13.05.2015 11:24:40
Thomas
Vielen Dank!

AW: Zeilen mit Checkbox ein- und ausblenden
17.05.2015 16:49:07
Hajo_Zi
warum offen?

;

Forumthreads zu verwandten Themen

Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Zeilen ausblenden per Button
Hanses

Hallo,
ich wiederhole mein Frage.
Ich möchte in einem geschützen Tabellenblatt, welches per Passwort freigegeben wird, per Button alle Zeilen ausblenden, wenn in Zelle der Spalte "C" kein Eintrag vorliegt.
Ich möchte keinen Autofilter einsetzen, da auch alle Menüs und die Spalten un...
11.09.2008 14:00:00
Thread-ID: 1009116
3 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Anzeige
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Ein-/Ausblenden v. Arbeitsblättern mit VBA
Lenni

Moin Excellianer!
Mit folgendem Code "Sheets("Tabelle1").Visible = False" in einem UserForm blende ich die Tabelle 1 und 2 aus. Mit "True" für "False" blende ich sie wieder ein.
Das Ganze hat nur den Nachteil, dass man die Tabelle 1 und/oder 2 über das Menü "Format > Blatt > Einbl...
01.02.2009 00:12:00
Thread-ID: 1045802
4 Beiträge
Zeilen Ein und Ausblenden
TinoB

Hallo Excelgemeinde,
ich stehe gerade auf dem Schlauch und hoffe Ihr könnt mir helfen. Ich habe im Forum schon danach gesucht, nur leider komme ich nicht weiter. Ich möchte wenn in der Zelle B2 eine 1, 2 oder 3 steht die Zeile 18 ausblenden. Ansonsten soll diese eingeblendet werden oder zum...
23.03.2009 16:43:10
Thread-ID: 1062965
4 Beiträge
Gitternetzlinien per Icon ein- und ausblenden
Vega

Hi,
ich habe mir Excel an meinem neuen Arbeitsplatz gerade wieder neu eingerichtet und auch alles soweit wieder hinbekommen. Nur ein Icon in der Menüleiste fehlt mir noch, mit dem ich die Gitternetzlinien ein- und ausblenden kann.
Ich hatte dies ein meiner alten Excel Umgebung in der Sy...
30.03.2009 15:30:18
Thread-ID: 1065324
5 Beiträge
Spalten mit Makro nach Vorgabe ein und ausblenden
Christoph

Hallo,
will mit Hilfe eines Makros eine bestimmte Anzahl an Spalten ein- bzw. ausgeblendet haben. Habe selbiges mal für Zeilen selbst programmiert:
Sub Zeilenausblenden() Rows("9:209").Hidden = True Rows("9:" & (9 + Range("A4").Value)).Hidden = False End Sub
Für Spalten klapp...
09.04.2009 14:44:26
Thread-ID: 1068032
3 Beiträge
Spalten mit farbigen Zellen ausblenden
Robert

Hallo,
stehe momentan voll auf dem Schlauch und komm nicht weiter.
Könnte Ihr mir bitte helfen?
Ich müsste alle Spalten, in denen eine oder mehrere farbige Zellen sind, ausblenden.
- und das wenn möglich mit VBA.
Vielen Dank schon mal.
Gruß Robert
11.06.2009 19:25:52
Thread-ID: 1080829
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Zeilen mit Checkbox in Excel ein- und ausblenden

Schritt-für-Schritt-Anleitung

  1. Checkbox einfügen

    • Öffne Excel und gehe zu Entwicklertools.
    • Klicke auf Einfügen und wähle Checkbox (Formularsteuerelement) aus.
    • Zeichne die Checkbox auf deinem Arbeitsblatt (z.B. Tabelle2).

  2. VBA-Editor öffnen

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Füge ein neues Modul hinzu, indem du mit der rechten Maustaste auf VBAProject (DeineDatei.xlsx) klickst und Einfügen > Modul wählst.

  3. Code für die Checkbox eingeben

    • Füge den folgenden Code ein, um die Zeilen basierend auf der Checkbox zu steuern:
    Private Sub CheckBox1_Click()
   Dim objCell As Range
   With Tabelle1
       .Rows.Hidden = False
       If CheckBox1.Value Then
           Set objCell = .Columns(5).Find(What:="Schwarz", LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
           If Not objCell Is Nothing Then
               .Columns(5).ColumnDifferences(Comparison:=objCell).EntireRow.Hidden = True
           Else
               MsgBox "Schwarz nicht gefunden.", vbCritical, "Fehler"
           End If
       Else
           .Rows("2:1500").Hidden = True
       End If
   End With
End Sub

  4. Zweite Checkbox hinzufügen

    • Wiederhole die Schritte zum Einfügen einer Checkbox für die Farbe "weiß".
    • Ändere den Code entsprechend, um die zweite Checkbox zu berücksichtigen.

Häufige Fehler und Lösungen

  • Fehler: Checkbox funktioniert nicht

    • Stelle sicher, dass der Code korrekt in das richtige Modul eingefügt wurde und die Checkboxen den richtigen Namen haben.

  • Fehler: Zeilen werden nicht ausgeblendet

    • Überprüfe den Bereich der Zeilen, die du ausblenden möchtest. Der Code sollte die richtige Zeilenreferenz haben (z.B. Rows("2:1500")).

  • Fehler: Falsche Daten werden angezeigt

    • Vergewissere dich, dass die Spalte E die richtigen Werte ("schwarz" oder "weiß") enthält und dass der Vergleich im Code exakt übereinstimmt.

Alternative Methoden

Eine alternative Methode ist die Verwendung von Filterfunktionen in Excel. Du kannst die Daten filtern, anstatt sie auszublenden. Gehe dazu wie folgt vor:

  1. Wähle die Zeilen und Spalten deiner Daten aus.
  2. Klicke auf Daten und dann auf Filter.
  3. Verwende die Dropdown-Menüs in der Kopfzeile, um nur die gewünschten Farben anzuzeigen.

Praktische Beispiele

Angenommen, du hast folgende Werte in Spalte E (Tabelle1):

E
schwarz
weiß
schwarz
weiß

Mit dem oben genannten VBA-Code wird beim Aktivieren von Checkbox1 nur die erste und dritte Zeile angezeigt. Wenn Checkbox2 aktiviert ist, werden nur die Zeilen mit "weiß" angezeigt.

Tipps für Profis

  • Verwendung von Variablen: Verwende Variablen für die Farben, um den Code flexibler zu gestalten.
  • Fehlerbehandlung: Füge eine Fehlerbehandlung ein, um unerwartete Probleme elegant zu lösen.
  • Datenvalidierung: Stelle sicher, dass die Werte in deinen Zellen korrekt sind, um Fehler im Code zu vermeiden.

FAQ: Häufige Fragen

1. Wie viele Checkboxen kann ich verwenden?
Du kannst so viele Checkboxen hinzufügen, wie du benötigst, solange du den Code entsprechend anpasst.

2. Funktioniert dieser Code in Excel 2016?
Ja, der Code sollte in Excel 2016 und späteren Versionen funktionieren. Stelle sicher, dass die Entwicklertools aktiviert sind.

3. Kann ich diesen Ansatz für andere Daten verwenden?
Ja, du kannst den Code anpassen, um ihn für andere Daten und Bedingungen zu nutzen, indem du die Suchkriterien änderst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige