Beste mensen,
Met onderstaande wisselknop zoek ik in Rij 9 naar waardes 's' en 't'. Indien de waarde wordt gevonden, wordt de kolom waarin deze waarde staat verborgen. Dit functioneert.
Nu wil ik echter dat als in Cel D9 een waarde 's' of 't' wordt gevonden, Kolom D én C volledig worden verborgen (Dus de Kolom waar de waarde wordt gevonden + de Kolom ervoor).
Iemand die kan helpen dat voor elkaar te krijgen?
---
Private Sub ToggleButton1_Click()
Dim c As Range
If ToggleButton1.Caption = "Tonen" Then
ToggleButton1.Caption = "Verbergen"
Else
ToggleButton1.Caption = "Tonen"
End If
For Each c In Range("A9:CZ9").Cells
If c.Value = "s" Or c.Value = "t" Then
c.EntireColumn.Hidden = ToggleButton1
End If
Next c
End Sub
---
Met onderstaande wisselknop zoek ik in Rij 9 naar waardes 's' en 't'. Indien de waarde wordt gevonden, wordt de kolom waarin deze waarde staat verborgen. Dit functioneert.
Nu wil ik echter dat als in Cel D9 een waarde 's' of 't' wordt gevonden, Kolom D én C volledig worden verborgen (Dus de Kolom waar de waarde wordt gevonden + de Kolom ervoor).
Iemand die kan helpen dat voor elkaar te krijgen?
---
Private Sub ToggleButton1_Click()
Dim c As Range
If ToggleButton1.Caption = "Tonen" Then
ToggleButton1.Caption = "Verbergen"
Else
ToggleButton1.Caption = "Tonen"
End If
For Each c In Range("A9:CZ9").Cells
If c.Value = "s" Or c.Value = "t" Then
c.EntireColumn.Hidden = ToggleButton1
End If
Next c
End Sub
---
Laatst bewerkt: