Office: Zeilen ein/ausblenden mit Checkbox

Guten Tag,

in einem Excel sollen je nach aktivierter Checkbox die Zeilen mit bestimmten Inhalten ein- bzw. ausgeblendet werden. Die Abkürzungen stehen für Niederlassungen / Bereiche. Für alle außer für "GRF", "G22" und "Tankstelle" jedoch nicht? Vielleicht hat jemand hierzu eine Lösungsidee - Danke!

Private Sub CheckBox1_Click()
Dim i As Long

If CheckBox1 = True Then
For i = 11 To 200
If Cells(i, 1).Value = "WDS" Then
Rows(i).Hidden = False
End If
Next i
Else
For i = 11 To 200
If Cells(i, 1).Value = "WDS" Then
Rows(i).Hidden = True
End If
Next i
End If
End Sub

Private Sub CheckBox12_Click()
Dim i As Long

If CheckBox12 = True Then
For i = 11 To 200
If Cells(i, 1).Value = "P1" Then
Rows(i).Hidden = False
End If
Next i
Else
For i = 11 To 200
If Cells(i, 1).Value = "P1" Then
Rows(i).Hidden = True
End If
Next i
End If
End Sub
Private Sub CheckBox13_Click()
Dim i As Long

If CheckBox10 = True Then
For i = 11 To 200
If Cells(i, 1).Value = "Tankstelle" Then
Rows(i).Hidden = False
End If
Next i
Else
For i = 11 To 200
If Cells(i, 1).Value = "Tankstelle" Then
Rows(i).Hidden = True
End If
Next i
End If
End Sub
Private Sub CheckBox15_Click()
Dim i As Long

If CheckBox10 = True Then
For i = 11 To 200
If Cells(i, 1).Value = "G22" Then
Rows(i).Hidden = False
End If
Next i
Else
For i = 11 To 200
If Cells(i, 1).Value = "G22" Then
Rows(i).Hidden = True
End If
Next i
End If
End Sub
Private Sub CheckBox2_Click()
Dim i As Long

If CheckBox2 = True Then
For i = 11 To 200
If Cells(i, 1).Value = "SBG" Then
Rows(i).Hidden = False
End If
Next i
Else
For i = 11 To 200
If Cells(i, 1).Value = "SBG" Then
Rows(i).Hidden = True
End If
Next i
End If
End Sub
Private Sub CheckBox4_Click()
Dim i As Long

If CheckBox4 = True Then
For i = 11 To 200
If Cells(i, 1).Value = "LPD" Then
Rows(i).Hidden = False
End If
Next i
Else
For i = 11 To 200
If Cells(i, 1).Value = "LPD" Then
Rows(i).Hidden = True
End If
Next i
End If
End Sub
Private Sub CheckBox5_Click()

Dim i As Long

If CheckBox5 = True Then
For i = 11 To 200
If Cells(i, 1).Value = "W71" Then
Rows(i).Hidden = False
End If
Next i
Else
For i = 11 To 200
If Cells(i, 1).Value = "W71" Then
Rows(i).Hidden = True
End If
Next i
End If
End Sub
Private Sub CheckBox6_Click()
Dim i As Long

If CheckBox6 = True Then
For i = 11 To 200
If Cells(i, 1).Value = "G16" Then
Rows(i).Hidden = False
End If
Next i
Else
For i = 11 To 200
If Cells(i, 1).Value = "G16" Then
Rows(i).Hidden = True
End If
Next i
End If
End Sub
Private Sub CheckBox7_Click()
Dim i As Long

If CheckBox7 = True Then
For i = 11 To 200
If Cells(i, 1).Value = "W51" Then
Rows(i).Hidden = False
End If
Next i
Else
For i = 11 To 200
If Cells(i, 1).Value = "W51" Then
Rows(i).Hidden = True
End If
Next i
End If
End Sub
Private Sub CheckBox8_Click()
Dim i As Long

If CheckBox8 = True Then
For i = 11 To 200
If Cells(i, 1).Value = "P2" Then
Rows(i).Hidden = False
End If
Next i
Else
For i = 11 To 200
If Cells(i, 1).Value = "P2" Then
Rows(i).Hidden = True
End If
Next i
End If
End Sub
Private Sub CheckBox9_Click()
Dim i As Long

If CheckBox9 = True Then
For i = 11 To 200
If Cells(i, 1).Value = "W83" Then
Rows(i).Hidden = False
End If
Next i
Else
For i = 11 To 200
If Cells(i, 1).Value = "W83" Then
Rows(i).Hidden = True
End If
Next i
End If
End Sub
Private Sub CheckBox10_Click()
Dim i As Long

If CheckBox10 = True Then
For i = 11 To 200
If Cells(i, 1).Value = "W66" Then
Rows(i).Hidden = False
End If
Next i
Else
For i = 11 To 200
If Cells(i, 1).Value = "W66" Then
Rows(i).Hidden = True
End If
Next i
End If
End Sub
Private Sub CheckBox11_Click()
Dim i As Long

If CheckBox10 = True Then
For i = 11 To 200
If Cells(i, 1).Value = "GRF" Then
Rows(i).Hidden = False
End If
Next i
Else
For i = 11 To 200
If Cells(i, l).Value = "GRF" Then
Rows(i).Hidden = True
End If
Next i
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

Moin,

dazu habe ich eine Verständnisfrage:
12 Checkboxen, jeweils nur eine gewählt (Radio-Button) oder auch mehrere möglich?

Gruß Hendrik

 

Es sind mehrere möglich (die Excel enthält Bescheidauflagen im Überblick: welche sind notwendig, wann erfolgte die letzte Überprüfung, berechnet die nächsten Fälligkeitstermine für mehrere Niederlassungen / Anlagen)
Meine Aufgabe war es eben die Excel um "GRF", "G22" und "Tankstelle" zu ergänzen, was eben leider nicht funktioniert...?
(Die "normale" Filterfunktion ist mir bekannt, mein Vorgesetzter möchte aber gerne weiterhin die Checkboxen haben...)

 

Hi,

den Sinn des Wunsches lass ich jetzt mal außen vor.
Dir ist schon aufgefallen, dass die Routinen, die funktionieren so aufgebaut sind:

Code:

Private Sub CheckBox1_Click()
Dim i As Long
If CheckBox1 = True Then
...

Während deine neuen Routinen so lauten

Code:

Private Sub CheckBox13_Click()
Dim i As Long
If CheckBox10 = True Then
...

Wenn du schon auf einen Klick in Checkbox13 reagierst, solltest du auch diese und nicht Checkbox10 bei der Auswertung berücksichtigen.

Übrigens könnte man den Code auch einfacher gestalten. Aus

Code:

Private Sub CheckBox1_Click()
Dim i As Long
If CheckBox1 = True Then
    For i = 11 To 200
        If Cells(i, 1).Value = "WDS" Then
            Rows(i).Hidden = False
        End If
    Next i
Else
    For i = 11 To 200
        If Cells(i, 1).Value = "WDS" Then
            Rows(i).Hidden = True
        End If
    Next i
End If
End Sub

wird

Code:

Private Sub CheckBox1_Click()
Dim i As Long
For i = 11 To 200
    If Cells(i, 1).Value = "WDS" Then
        Rows(i).Hidden = Not Checkbox1
    End If
Next i
End Sub

 

Vielen vielen Dank - vor allem auch für die einfachere Variante!
Manchmal sieht man wirklich den Wald vor lauter Bäumen nicht mehr!