Ich habe für eine Urlaubstabelle Checkbox-Codes erstellt.
Jetzt würde ich gerne alle Leerzeilen nicht mit einblenden lassen.
Private Sub CheckBox1_Click()
'Bahn
Dim i As Integer
For i = 1 To 12
With Worksheets(i)
.Range("6:28").EntireRow.Hidden = (CheckBox1.Value = False)
End With
Next i
End Sub
Private Sub CheckBox2_Click()
'Filling
Dim i As Integer
For i = 1 To 12
With Worksheets(i)
.Range("29:58").EntireRow.Hidden = (CheckBox2.Value = False)
End With
Next i
End Sub
Private Sub CheckBox3_Click()
'Team_1
Dim i As Integer
For i = 1 To 12
With Worksheets(i)
.Range("6:11").EntireRow.Hidden = (CheckBox3.Value = False)
.Range("29:37").EntireRow.Hidden = (CheckBox3.Value = False)
.Range("56:58").EntireRow.Hidden = (CheckBox3.Value = False)
End With
Next i
End Sub
Private Sub CheckBox4_Click()
'Team_2
Dim i As Integer
For i = 1 To 12
With Worksheets(i)
.Range("12:17").EntireRow.Hidden = (CheckBox4.Value = False)
.Range("38:46").EntireRow.Hidden = (CheckBox4.Value = False)
.Range("56:58").EntireRow.Hidden = (CheckBox4.Value = False)
End With
Next i
End Sub
Private Sub CheckBox5_Click()
'Team_3
Dim i As Integer
For i = 1 To 12
With Worksheets(i)
.Range("18:23").EntireRow.Hidden = (CheckBox5.Value = False)
.Range("47:58").EntireRow.Hidden = (CheckBox5.Value = False)
End With
Next i
End Sub
Private Sub CheckBox6_Click()
'Alles
Dim i As Integer
For i = 1 To 12
With Worksheets(i)
.Range("6:58").EntireRow.Hidden = (CheckBox6.Value = False)
End With
Next i
End Sub