Office: (Office 365) Zeilen über Kontrollkästchen und abhängig von Zelleninhalt ausblenden

Hallo,

ich habe eine Liste mit 30 Platzhaltern (=Zeilen 11:41) um Nutzer anzulegen.
In Zelle C7 wird mir automatisch die Summe der Nutzer angezeigt, wenn die Nutzernamen in die Zeilen eingetragen wurden. Also Eintrag in 4 Zeilen = 4 Nutzer, so zeigt C7 "4" an.
Nun möchte ich die leeren Zeilen ausblenden lassen, wenn keine Nutzernamen dort eingetragen wurden. Man soll hierzu auswählen können, ob man nicht gefüllte Zeilen angezeigt lassen möchte oder nicht.
Durch ein Kontrollkästchen in C8 soll man per Klick die ungefüllten Zeilen ausblenden können.

Das Ausblenden der Zeilen soll trotz Blattschutz möglich sein.

Durch Zusammenstellen einiger VBA Codes, die mir logisch erschienen (ich bin Anfänger), habe ich folgendes zusammengeschrieben. Leider liegt irgendwo ein Fehler vor, den ich nicht identifizieren kann.
Ich danke für jede Hilfe.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20180822
If Target.Column = 3 And Target.Row = 7 Then
If CheckBox1_Click() Then
Application.Rows("12:41").Select
Application.Selection.EntireRow.Hidden = False
If Target.Value = "1" Then
Application.Rows("12:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "2" Then
Application.Rows("13:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "3" Then
Application.Rows("14:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "4" Then
Application.Rows("15:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "5" Then
Application.Rows("16:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "6" Then
Application.Rows("17:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "7" Then
Application.Rows("18:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "8" Then
Application.Rows("19:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "9" Then
Application.Rows("20:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "10" Then
Application.Rows("21:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "11" Then
Application.Rows("22:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "12" Then
Application.Rows("23:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "13" Then
Application.Rows("24:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "14" Then
Application.Rows("25:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "15" Then
Application.Rows("26:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "16" Then
Application.Rows("27:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "17" Then
Application.Rows("28:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "18" Then
Application.Rows("29:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "19" Then
Application.Rows("30:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "20" Then
Application.Rows("31:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "21" Then
Application.Rows("32:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "22" Then
Application.Rows("33:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "23" Then
Application.Rows("34:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "24" Then
Application.Rows("35:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "25" Then
Application.Rows("36:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "26" Then
Application.Rows("37:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "27" Then
Application.Rows("38:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "28" Then
Application.Rows("39:41").Select
Application.Selection.EntireRow.Hidden = True
ElseIf Target.Value = "29" Then
Application.Rows("40:41").Select
Application.Selection.EntireRow.Hidden = TrueEnd

End If
End If
End Sub

 

warum nicht Autofilter?

 

Hallo,

in der beiliegenden Excel-Datei habe ich deine Vorgaben eingebaut.

 

Hi,

bei deinem Vorhaben kannst du nicht das Worksheet_Change-Ereignis verwenden, denn:

1. steht in C7 eine Formel, das Worksheet_Change-Ereignis reagiert jedoch nicht auf die Änderung von Formelergebnissen sondern nur auf direkte Eingaben in eine Zelle
2. sollen die Zellen doch ein-/ausgeblendet werden, denn du die CheckBox aktivierst

Aus diesem Grund musst du das Click-Ereignis der CheckBox verwenden:

Code:

Private Sub CheckBox1_Click()
    Rows(Range("C7").Value + 11 & ":41").Hidden = CheckBox1 = True
End Sub

Bedingung dabei ist, dass in Spalte A zwischen den Einträgen keine Leerzellen vorhanden sind, weil andernfalls die falschen Zeilen ausgeblendet werden.

---

 

Vielen Herzlichen Dank! Das hat sehr geholfen! Es funktioniert!

 

Das birgt Probleme für den Endnutzer.