Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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?

313 Forumthreads zu ähnlichen 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
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
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
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
4
3
5
1
1
4
5
3
3
4
2
2
5
6
6
7
5
2
3
21
5
7
8