Knop voor verbergen kolom en kolom ernaast

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
---

Je zegt S en T en je controleert op s en t.
Die zijn niet gelijk aan elkaar. "S" is niet gelijk aan "s".

Mijn fout. Heb mijn bericht aangepast. Probleem blijft overeind.

Hi,

voeg deze regel toe aan je code

Verander deze "For Each c In Range("A9:CZ9").Cells" ook.
pas je range aan naar B9:CZ9
Anders krijg je een fout als in A9 een s of t wordt gevonden.

En als je LCase(..) toevoegt aan je code, maakt het niet uit of er "S" of "s" in de cel staat.

En daarmee ben ik geholpen!
Thanks!

Rayman11 zei:

Mijn fout. Heb mijn bericht aangepast. Probleem blijft overeind.

Klik om te vergroten...

Het ging me uiteraard niet om je bericht maar om de code.