Kolommen verbergen/tonen met CommandButton

[Pascal62]

Goede morgen,

Heb namelijk een CommandButton aangemaakt welke moet dienen in 2 richtingen, "Kolommen Verbergen"/"Kolommen Tonen"
Ik weet wel hoe ik een CommandButton moet aanmaken en laten werken met 1 functie maar niet met een dubbele functie.
Vermoedelijk heb ik ergens een fout staan in de formule maar weet hier geen gepaste oplossing voor.

Private Sub CommandButton6_Click()
'
' Kolommen Zichtbaar/Verbergen

If CommandButton6.Caption = "Kolommen Verbergen" Then
CommandButton6.Caption = "Kolommen Tonen"
Range("B:B,F:U").EntireColumns.Hidden = True
ElseIf CommandButton6.Caption = "Kolommen Tonen" Then
CommandButton6.Caption = "Kolommen Verbergen"
Range("B:B,F:U").EntireColumns.Hidden = False
End If
End Sub

Alvast bedankt op voorhand voor de suggesties

 

[Warme bakkertje]

Je gebruikt hiervoor geen CommandButton maar een ToggleButton (die een waarde True en False heeft)

 

[Pascal62]

Goede morgen,

Bedankt voor de hint.
Heb deze gewijzigd in een ToggleButton maar het werkt nog steeds niet.

Ziehier mijn gewijzigde code
Private Sub ToggleButton1_Click()

If ToggleButton1.Caption1 = "Kolommen Verbergen" Then
ToggleButton1.Caption = "Kolommen Tonen"
Range("B:B,F:U").EntireColumns.Hidden = True
ElseIf ToggleButton1.Caption = "Kolommen Tonen" Then
ToggleButton1.Caption = "Kolommen Tonen"
Range("B:B,F:U").EntireColumns.Hidden = False
End If
End Sub

 

[Warme bakkertje]

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
    ToggleButton1.Caption = "Kolommen Tonen"
    Range("B:B,F:U").EntireColumn.Hidden = True
Else
    ToggleButton1.Caption = "Kolommen Verbergen"
    Range("B:B,F:U").EntireColumn.Hidden = False
End If
End Sub

 

[Pascal62]

Beste Rudy,
Dit werkt perfect. Alvast bedankt.
:thumb:

 

[Warme bakkertje]

Iets kortere versie

Private Sub ToggleButton1_Click()
Range("B:B,F:U").EntireColumn.Hidden = IIf(ToggleButton1, True, False)
ToggleButton1.Caption = IIf(ToggleButton1, "Kolommen Tonen", "Kolommmen Verbergen")
End Sub