Über Kontrollkästchen Zeilen ausblenden

Forumthread: Über Kontrollkästchen Zeilen ausblenden

24.01.2019 18:37:44

Simon

Hallo Liebe Excelfans,
ich muss für die Arbeit ein Problem lösen und habe bei meiner Recherche festgestellt, dass ich wohl nicht an VBA vorbeikomme. Leider behersche ich das nicht ;)
Ich möchte über 5 Kontrollkästchen mit den Namen PV1 -PV5 Zeilen ausblenden. Ebenso gibt es 5 Spalten mit jeweils einem dieser Namen und in die Zellen darunter wird ein x eingetragen sofern dass meiner Meinung nach zutrifft. Es können auch mehrere PV zutreffen.
Also wen ich Alle Kontrollkstchen anklicke sind alle Zeilen sichtbar, klicke ich nur PV1 an sollen alle Zeilen in denen in Spalte M ein x ist eingeblendet werden, klicke ich nur PV2 an sollen alle Zeilen in denen in Spalte N ein x ist eingeblendet werden.
Soweit der Plan. Ich hoffe ihr versteht was ich meine. ;)
Userbild

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Würdest du bitte....

24.01.2019 18:58:13

Werner
einfach Filtern & fertig ... owT

24.01.2019 20:20:08

Matthias
AW: Über Kontrollkästchen Zeilen ausblenden

25.01.2019 08:58:50

UweD

Würdest du bitte....

24.01.2019 18:58:13

Werner

Hallo Simon,
...die Beiträge in den verschiedenen Foren untereinander verlinken.
Gruß Werner

einfach Filtern & fertig ... owT

24.01.2019 20:20:08

Matthias

AW: Über Kontrollkästchen Zeilen ausblenden

25.01.2019 08:58:50

UweD

Hallo
nimm ActiveX Checkboxen (Checkbox1 bis Checkbox5) dann
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- den Code dort einfügen
- M3:Q3 markieren
- Filter setzen
Microsoft Excel Objekt Tabelle1

Option Explicit 
Private Sub CheckBox1_Click() 
    Dim RNG As Range 
    Set RNG = Range("M:O") 
    If CheckBox1 Then 
        RNG.AutoFilter Field:=1, Criteria1:="x" 
    Else 
        RNG.AutoFilter Field:=1 
    End If 
End Sub 
Private Sub CheckBox2_Click() 
    Dim RNG As Range 
    Set RNG = Range("M:O") 
    If CheckBox2 Then 
        RNG.AutoFilter Field:=2, Criteria1:="x" 
    Else 
        RNG.AutoFilter Field:=2 
    End If 
End Sub 
Private Sub CheckBox3_Click() 
    Dim RNG As Range 
    Set RNG = Range("M:O") 
    If CheckBox3 Then 
        RNG.AutoFilter Field:=3, Criteria1:="x" 
    Else 
        RNG.AutoFilter Field:=3 
    End If 
End Sub 
Private Sub CheckBox4_Click() 
    Dim RNG As Range 
    Set RNG = Range("M:O") 
    If CheckBox4 Then 
        RNG.AutoFilter Field:=4, Criteria1:="x" 
    Else 
        RNG.AutoFilter Field:=4 
    End If 
End Sub 
Private Sub CheckBox5_Click() 
    Dim RNG As Range 
    Set RNG = Range("M:O") 
    If CheckBox5 Then 
        RNG.AutoFilter Field:=5, Criteria1:="x" 
    Else 
        RNG.AutoFilter Field:=5 
    End If 
End Sub

LG UweD

Beliebteste Forumthreads (12 Monate)

Über Kontrollkästchen Zeilen ausblenden

Forumthread: Über Kontrollkästchen Zeilen ausblenden

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread