Kolommen verbergen en zichtbaar maken a.d.h.v. een waarde

[martijnvds]

Beste mensen,

Ik heb op Excel een grote tabel met 5 subtabellen. Mijn doel is dat op het begin alle kolommen van de tabel verborgen zijn. En dat je vervolgens door een waarde in te vullen in een bepaalde cel dat 1 van de 5 subtabellen tevoorschijn komt. Dit lukt mij echter niet. Wat hulp zou ik enorm waarderen.

Meer informatie:
R3K1= daar moet de waarde worden ingevuld
Activiteit 1= kolom 5 t/m 20
Activiteit 2= kolom 21 t/m 36
Activiteit 3= kolom 37 t/m 52
Activiteit 4= kolom 53 t/m 68
Activiteit 5= kolom 69 t/m 84

Volgens mij moet het mogelijk zijn dat als je bijvoorbeeld '1' als waarde invult, dat activiteit 1 (kolom 5 t/m 20) tevoorschijn komt.

Alvast enorm bedankt voor de hulp!

Gr. Martijn

p.s. hieronder staat het bestand.

Bekijk bijlage Gympedia kolommen verbergen.xlsxBekijk bijlage Gympedia kolommen verbergen.xlsx

 

[Haije]

Martijn,

voldoet dit?

LET OP: Macro's toestaan

 

[gast0660]

Hier heb je er nog een.
Zie de opmerking van mijn vriend Haije betreffende de macro's.
En ik heb echt mijn best gedaan om alles zo behapbaar mogelijk te schrijven.
De éérste keer na het downloaden zal je een foutmelding krijgen, gewoon op beëindigen drukken

 

[martijnvds]

Dit is precies wat ik bedoelde. Dank jullie wel!

Gr. Martijn

 

[martijnvds]

Verbergen van kolommen

Hier heb je er nog een.
Zie de opmerking van mijn vriend Haije betreffende de macro's.
En ik heb echt mijn best gedaan om alles zo behapbaar mogelijk te schrijven.
De éérste keer na het downloaden zal je een foutmelding krijgen, gewoon op beëindigen drukken

Nog even een vraagje. Is het makkelijk om nog tabellen toe te voegen? En kunnen deze dan ook verborgen en weer zichtbaar worden?

Gr. Martijn

 

[Haije]

Jazeker, dat is prima te doen, zowel in de versie van vriend @gast0660 als in mijn versie.

 

[VenA]

Het quoten is niet nodig. Wat je bedoelt met tabellen toevoegen ontgaat mij; er is geen tabel te vinden in het bestandje.

iets eenvoudiger dan de eerdere suggesties

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$A$3" Then
    Cells(4, 1).CurrentRegion.Offset(, 4).Columns.Hidden = True
    Cells((Target - 1) * 16 + 5).Resize(, 16).Columns.Hidden = False
  End If
End Sub

 

[Haije]

Martijn,

de bijlage bevat naast de door mijzelf aangedragen oplossing ook de oplossing van VenA.
Als ik jou was, zou ik die laatste gaan gebruiken, want die werkt zonder aanpassing ook als je "tabellen" toevoegt, terwijl mijn oplossing dan handmatig aangepast moet worden.

 

[VenA]

@Haije, die 0 en 9 zijn misschien wel handig (alles verbergen of alles zichtbaar)

Je kan het ook zo schrijven (ik zou in dit geval geen SelectionChange gebruiken)

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address <> "$A$3" Then Exit Sub
  Select Case Target
    Case 0: [alleactiviteiten].ColumnWidth = 0
    Case 1 To 6: Range("activiteit" & Target).ColumnWidth = 4.57
    Case 9: [alleactiviteiten].ColumnWidth = 4.57 'of case else
  End Select
End Sub

Scheelt wat copy/paste en maakt de kans op aanpassingsfoutjes wat kleiner