Private Sub ToggleButton2_Click()
Dim liste, n As Byte
liste = Array("N", "O", "P", "Q", "R", "S")
For n = 0 To UBound(liste)
Columns(liste(n)).Hidden = Not Columns(liste(n)).Hidden
Next n
End Sub
Private Sub ToggleButton3_Click()
Dim liste, q As Byte
liste = Array("T", "U", "V", "W")
For q = 0 To UBound(liste)
Columns(liste(q)).Hidden = Not Columns(liste(q)).Hidden
Next q
End Sub