Excel kolom verbergen bij bepaalde voorwaade

[eelco42]

In bijgevoegd excel kan ik in cel B4 1 t/m 9 invullen. Afhankelijk van de input in cel B4 wil ik in kolommen E t/m AW het aantal weken zichtbaar hebben. Dus zodra cel B4 '4' betreft, wil ik kolom Y t/m AW verborgen hebben. Zodra cel B4 '6' betreft, wil ik kolom AI t/m AW verborgen hebben etc.

Kan iemand mij hierbij helpen?
Alvast bedankt!

 

[AD1957]

Met een stukje VBA

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" Then
    Columns("E:AW").EntireColumn.Hidden = False
    i = Target.Value
    Range(Cells(1, i * 6 - i + 5), Cells(1, 49)).EntireColumn.Hidden = True
End If
End Sub

 

[eelco42]

Met een stukje VBA

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" Then
    Columns("E:AW").EntireColumn.Hidden = False
    i = Target.Value
    Range(Cells(1, i * 6 - i + 5), Cells(1, 49)).EntireColumn.Hidden = True
End If
End Sub

Bedankt, bovenstaande doet inderdaad wat ik wil!

 

[AD1957]

Was even tellen, maar graag gedaan.

 

[eelco42]

In cel G8 worden verschillende cellen opgeteld. Hoe kan ik daar alleen de zichtbare cellen laten optellen? Met subtotaal(109;G14;L14;Q14;V14;AA14) worden de door de VBA verborgen cellen toch gewoon meegeteld.

 

[AD1957]

Subtotaal werkt niet met verborgen kolommen.

edit: lees dit eens https://nl.extendoffice.com/documents/excel/3502-excel-exclude-hidden-columle