kolommen verbergen na keuze in keuzelijst

[2 linkerhanden]

Hallo,

Ik ben op zoek naar een functie of macro in VBA die het volgende doet:

Afhankelijk van de gemaakte keuze in keuzelijst dienen kolommen op een andere tabblad te worden verbogen.

Zie bijlage.

Ik hoop dat jullie mij kunnen helpen.

EvertBekijk bijlage Kolommen verbergen bij validatiekeuze.xlsx

 

[danny147]

Beste 2 linkerhanden

Plak de volgende code in ThisWorkbook via ALT+F11

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Columns("A:K").Hidden = False
    If [A1] = 1 Then
Columns("F:K").Hidden = True
    End If
If [A1] = 2 Then
Columns("C:E").Hidden = True
Columns("I:K").Hidden = True
    End If
If [A1] = 3 Then
Columns("A:H").Hidden = True
    End If
End Sub

Groetjes Danny. :thumb:

 

[2 linkerhanden]

Hoi Danny,

Dank maar het werkt niet. Misschien omdat de kolommen op een ander tabblad verborgen moeten worden?

 

[danny147]

Beste 2 linkerhanden

Zal het aanpassen.

Groetjes Danny. :thumb:

 

[danny147]

Beste 2 linkerhanden

Als je de validatielijst wijzigd, klik dan eerst op de cel eronder.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Blad2").Columns("A:K").Hidden = False
    If [A1] = 1 Then
Sheets("Blad2").Columns("F:K").Hidden = True
    End If
If [A1] = 2 Then
Sheets("Blad2").Columns("C:E").Hidden = True
Sheets("Blad2").Columns("I:K").Hidden = True
    End If
If [A1] = 3 Then
Sheets("Blad2").Columns("A:H").Hidden = True
    End If
End Sub

Groetjes Danny. :thumb:

 

[2 linkerhanden]

Bekijk bijlage Kolommen verbergen bij validatiekeuze2.xls

Hoi Danny,

Het werkt niet helemaal zoals ik graag wil.
IK heb de code erin gezet en een paar dingen gewijzigd (zoals naam tabbladen) en nu worden de kolommen bij gewijziegde keuze niet weer zichtbaar gemaakt. Zie bijlage.

Als ik de cel onder de kezuelijst ook een naam geev (bijv: Soort_regeling) kun je dan ook daarnaar verwijzen in de code?

Alvast mijn dank.

 

[danny147]

Beste 2 linkerhanden

Als je de namen van de tabbladen wijzigd speelt dit geen enkele rol in de code.
Kijk maar links naar de namen van de tabbladen in VBA editor.

Wil je de validatielijst een naam geven dan moet je in de code daar waar er een 1, 2 of een 3 staat dit wijzigen door de naam die je wilt tussen " " plaatsen.

Groetjes Danny. :thumb: