Herbers Excel-Forum - das Archiv

Bewerten Sie hier bitte das Excel-Portal

Zeilen mit Checkbox ein- und ausblenden

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ CheckBox
Bild

Betrifft: Zeilen mit Checkbox ein- und ausblenden
von: Thomas

Geschrieben am: 12.05.2015 09:46:41

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

Bild

Betrifft: AW: Zeilen mit Checkbox ein- und ausblenden
von: Nepumuk

Geschrieben am: 12.05.2015 10:24:13
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

Bild

Betrifft: AW: Zeilen mit Checkbox ein- und ausblenden
von: Thomas

Geschrieben am: 12.05.2015 10:42:52
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

Bild

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

Bild

Betrifft: AW: Zeilen mit Checkbox ein- und ausblenden
von: Thomas
Geschrieben am: 12.05.2015 11:11:28
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.

Bild

Betrifft: AW: Zeilen mit Checkbox ein- und ausblenden
von: Nepumuk

Geschrieben am: 12.05.2015 15:53:23
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

Bild

Betrifft: AW: Zeilen mit Checkbox ein- und ausblenden
von: Thomas
Geschrieben am: 13.05.2015 11:24:40
Vielen Dank!

Bild

Betrifft: AW: Zeilen mit Checkbox ein- und ausblenden
von: Hajo_Zi

Geschrieben am: 17.05.2015 16:49:07
warum offen?

 Bild
Excel-Beispiele zum Thema "Zeilen mit Checkbox ein- und ausblenden"
Zeilenhöhe in cm festlegen Summe gefilterter Zeilen
Zeilenumbruch Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen Zellinhalte zeilenweise sortieren
Bewerten Sie hier bitte das Excel-Portal