Über Kontrollkästchen Zeilen ausblenden

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Über Kontrollkästchen Zeilen ausblenden

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread