dotchieJack
Member
Hello dear helpers
I have code that works but is there no nicer (shorter) code possible?
Thanks
I have code that works but is there no nicer (shorter) code possible?
Code:
Private Sub CheckBox8_Click()
If CheckBox8.Value = False Then
Blad3.Columns("L:L").EntireColumn.Hidden = True
Blad4.Columns("L:L").EntireColumn.Hidden = True
Blad5.Columns("L:L").EntireColumn.Hidden = True
Blad6.Columns("L:L").EntireColumn.Hidden = True
Blad12.Columns("L:L").EntireColumn.Hidden = True
Blad13.Columns("L:L").EntireColumn.Hidden = True
Blad14.Columns("L:L").EntireColumn.Hidden = True
Blad15.Columns("L:L").EntireColumn.Hidden = True
Blad16.Columns("L:L").EntireColumn.Hidden = True
Blad17.Columns("L:L").EntireColumn.Hidden = True
Blad18.Columns("L:L").EntireColumn.Hidden = True
Blad19.Columns("L:L").EntireColumn.Hidden = True
Blad20.Columns("L:L").EntireColumn.Hidden = True
Blad21.Columns("L:L").EntireColumn.Hidden = True
Blad22.Columns("L:L").EntireColumn.Hidden = True
Blad23.Columns("L:L").EntireColumn.Hidden = True
Blad24.Columns("L:L").EntireColumn.Hidden = True
Blad25.Columns("L:L").EntireColumn.Hidden = True
Blad41.Columns("L:L").EntireColumn.Hidden = True
Blad42.Columns("L:L").EntireColumn.Hidden = True
Blad43.Columns("L:L").EntireColumn.Hidden = True
Blad44.Columns("L:L").EntireColumn.Hidden = True
Blad45.Columns("L:L").EntireColumn.Hidden = True
Blad30.Columns("L:L").EntireColumn.Hidden = True
Else
Blad3.Columns("L:L").EntireColumn.Hidden = False
Blad4.Columns("L:L").EntireColumn.Hidden = False
Blad5.Columns("L:L").EntireColumn.Hidden = False
Blad6.Columns("L:L").EntireColumn.Hidden = False
Blad12.Columns("L:L").EntireColumn.Hidden = False
Blad13.Columns("L:L").EntireColumn.Hidden = False
Blad14.Columns("L:L").EntireColumn.Hidden = False
Blad15.Columns("L:L").EntireColumn.Hidden = False
Blad16.Columns("L:L").EntireColumn.Hidden = False
Blad17.Columns("L:L").EntireColumn.Hidden = False
Blad18.Columns("L:L").EntireColumn.Hidden = False
Blad19.Columns("L:L").EntireColumn.Hidden = False
Blad20.Columns("L:L").EntireColumn.Hidden = False
Blad21.Columns("L:L").EntireColumn.Hidden = False
Blad22.Columns("L:L").EntireColumn.Hidden = False
Blad23.Columns("L:L").EntireColumn.Hidden = False
Blad24.Columns("L:L").EntireColumn.Hidden = False
Blad25.Columns("L:L").EntireColumn.Hidden = False
Blad41.Columns("L:L").EntireColumn.Hidden = False
Blad42.Columns("L:L").EntireColumn.Hidden = False
Blad43.Columns("L:L").EntireColumn.Hidden = False
Blad44.Columns("L:L").EntireColumn.Hidden = False
Blad45.Columns("L:L").EntireColumn.Hidden = False
Blad30.Columns("L:L").EntireColumn.Hidden = False
End If
If Columns("L:L").EntireColumn.Hidden = True Then
Label8.Caption = "verborgen"
Else
Label8.Caption = ""
End If
End Sub