Kolommen verbergen met selectievakje

[Ben]

Voor de oplettende onder ons: het klopt inderdaad dat ik
dit onderwerp al eerder is genoemd, maar dacht het beter
opnieuw te kunnen stellen, daar er al veel dagen tussen
zitten en anders bij niemand de vervolgvraag meer opvalt.

Dankzij Luc z'n idee, ben ik tot het volgende gekomen:
Ik wil graag middels een macro's kolommen zichtbaar maken
of verbergen afhankelijk van de wensen van de gebruiker.
Ik heb hiertoe onder elke kolomtekst een selectievakje
gemaakt, die in de cel daaronder de tekst "WAAR"
of "ONWAAR" vermeld, afhankelijk van het 'vinkje'.

Vervolgens heb ik een macro (genaamd 'Activeren') gemaakt
die er als volgt uit ziet:

If Range("n15") = "WAAR" Then
Sheets("overzicht").Select
Columns("N:N").EntireColumn.AutoFit
Else
Sheets("overzicht").Select
Columns("n:n").Select
Selection.EntireColumn.Hidden = True
End If

If Range("o15") = "WAAR" Then
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.ColumnWidth = 10
Else
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.EntireColumn.Hidden = True
End If
'enz'
End Sub

Het werkt alleen niet lekker. Kolommen worden niet goed
verborgen of zichtbaar gemaakt. Weet iemand wat ik nou
fout doe?

Ik wil ook graag het blad beveilgen, maar dan kan je de
selectievakjes niet meer aan- of uitvinken. Hoe kan je dit
verhelpen?

Alvast erg bedankt voor alle hulp.

Groetjes,
Ben

[Luc Heyndrickx]

Ben,

Om kolommen te verbergen: Slechts één regeltje:

Sheets("overzicht").Columns("N:N").EntireColumn.Hidden = True

Om alle kolommen terug zichtbaar te maken: Slechts één regeltje:

Sheets("overzicht").Columns.EntireColumn.Hidden = False

Wat je met al die rest wil bereiken snap ik niet.

AutoFit... ColumnWidth ...

Het ging hem toch enkel om kolommen verbergen, en terug zichtbaar maken?
En hoe jij aan Sheets("overzicht") komt snap ik ook al niet. Ik heb
intussen reeds 2 Excel versie's gehad, en telkens werd de naam overzicht
geweigerd (Is gereserveerd)

Luc

Post by Ben
Voor de oplettende onder ons: het klopt inderdaad dat ik
dit onderwerp al eerder is genoemd, maar dacht het beter
opnieuw te kunnen stellen, daar er al veel dagen tussen
zitten en anders bij niemand de vervolgvraag meer opvalt.
Ik wil graag middels een macro's kolommen zichtbaar maken
of verbergen afhankelijk van de wensen van de gebruiker.
Ik heb hiertoe onder elke kolomtekst een selectievakje
gemaakt, die in de cel daaronder de tekst "WAAR"
of "ONWAAR" vermeld, afhankelijk van het 'vinkje'.
Vervolgens heb ik een macro (genaamd 'Activeren') gemaakt
If Range("n15") = "WAAR" Then
Sheets("overzicht").Select
Columns("N:N").EntireColumn.AutoFit
Else
Sheets("overzicht").Select
Columns("n:n").Select
Selection.EntireColumn.Hidden = True
End If
If Range("o15") = "WAAR" Then
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.ColumnWidth = 10
Else
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.EntireColumn.Hidden = True
End If
'enz'
End Sub
Het werkt alleen niet lekker. Kolommen worden niet goed
verborgen of zichtbaar gemaakt. Weet iemand wat ik nou
fout doe?
Ik wil ook graag het blad beveilgen, maar dan kan je de
selectievakjes niet meer aan- of uitvinken. Hoe kan je dit
verhelpen?
Alvast erg bedankt voor alle hulp.
Groetjes,
Ben

[Ben]

Bedankt voor je reactie Luc, ik zal nog wat toelichten.

Je hebt gelijk dat het bladnaam "overzicht" niet te
gebruiken is, het was maar even een verzonnen fictieve
naam. Ik wist niet dat deze naam uberhaupt niet kon. Sorry.

Wat ik wil is niet alle kommen in 1x verbergen of
zichtbaar maken, maar alleen diegene tonen die met het
selectievakje aangevinkt zijn. De niet aangevinkte moeten
verborgen worden.
Ik heb dus een "BladA" (een soort instellingen-blad)waarin
het originele overzicht staat en een "BladB" waarin alleen
de kolomkoppen van dat overzicht staan, met daaronder
selectievakjes.
Wanneer je een selectievakje aanvinkt, komt in een
gekoppelde cel de waarde: "WAAR" of "ONWAAR" te staan
(indien niet aangevinkt. De macro 'Activeren' moet
in "BladA" de aangegeven kolommen verbergen of zichtbaar
maken. Dat kan dus zijn: kolom N tonen, kolom o verbergen,
kolom P tonen, enz.
Hier nog even opnieuw de macro-code, welke nog niet goed
werkt. Ziet iemand hier een fout in?
If Range("n15") = "WAAR" Then 'cel n15 staat in BladB'

Sheets("BladA").Select
Columns("N:N").EntireColumn.AutoFit 'kolom tonen +

breedte aanpassen'

Else 'indien cel n15 is ONWAAR'
Sheets("BladA").Select
Columns("n:n").Select
Selection.EntireColumn.Hidden = True 'kolom

verbergen'

End If
If Range("o15") = "WAAR" Then
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.ColumnWidth = 10
Else
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.EntireColumn.Hidden = True
End If
'enz'
End Sub

Heb ik mezelf zo wat duidelijker kunnen maken en zie je
het probleem?

-----Original Message-----
Ben,
Sheets("overzicht").Columns("N:N").EntireColumn.Hidden =

True

Om alle kolommen terug zichtbaar te maken: Slechts één
Sheets("overzicht").Columns.EntireColumn.Hidden = False
Wat je met al die rest wil bereiken snap ik niet.
AutoFit... ColumnWidth ...
Het ging hem toch enkel om kolommen verbergen, en terug

zichtbaar maken?

En hoe jij aan Sheets("overzicht") komt snap ik ook al

niet. Ik heb

intussen reeds 2 Excel versie's gehad, en telkens werd de

naam overzicht

geweigerd (Is gereserveerd)
Luc

Voor de oplettende onder ons: het klopt inderdaad dat ik
dit onderwerp al eerder is genoemd, maar dacht het beter
opnieuw te kunnen stellen, daar er al veel dagen tussen
zitten en anders bij niemand de vervolgvraag meer

opvalt.

Ik wil graag middels een macro's kolommen zichtbaar

maken

of verbergen afhankelijk van de wensen van de gebruiker.
Ik heb hiertoe onder elke kolomtekst een selectievakje
gemaakt, die in de cel daaronder de tekst "WAAR"
of "ONWAAR" vermeld, afhankelijk van het 'vinkje'.
Vervolgens heb ik een macro (genaamd 'Activeren')

gemaakt

If Range("n15") = "WAAR" Then
Sheets("overzicht").Select
Columns("N:N").EntireColumn.AutoFit
Else
Sheets("overzicht").Select
Columns("n:n").Select
Selection.EntireColumn.Hidden = True
End If
If Range("o15") = "WAAR" Then
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.ColumnWidth = 10
Else
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.EntireColumn.Hidden = True
End If
'enz'
End Sub
Het werkt alleen niet lekker. Kolommen worden niet goed
verborgen of zichtbaar gemaakt. Weet iemand wat ik nou
fout doe?
Ik wil ook graag het blad beveilgen, maar dan kan je de
selectievakjes niet meer aan- of uitvinken. Hoe kan je

dit

verhelpen?
Alvast erg bedankt voor alle hulp.
Groetjes,
Ben

.

[Luc Heyndrickx]

Ben,

If Range("n15") = TRUE Then
With Sheets("overzicht").Columns("N:N").EntireColumn
.Hidden = False
.AutoFit
End With
Else
Sheets("overzicht").Columns("n:n").EntireColumn.Hidden = True
End If
enz.

Luc



"Ben" <***@discussions.microsoft.com> schreef in bericht news:063901c4ab67$3d96f120$***@phx.gbl...
Bedankt voor je reactie Luc, ik zal nog wat toelichten.

Je hebt gelijk dat het bladnaam "overzicht" niet te
gebruiken is, het was maar even een verzonnen fictieve
naam. Ik wist niet dat deze naam uberhaupt niet kon. Sorry.

Wat ik wil is niet alle kommen in 1x verbergen of
zichtbaar maken, maar alleen diegene tonen die met het
selectievakje aangevinkt zijn. De niet aangevinkte moeten
verborgen worden.
Ik heb dus een "BladA" (een soort instellingen-blad)waarin
het originele overzicht staat en een "BladB" waarin alleen
de kolomkoppen van dat overzicht staan, met daaronder
selectievakjes.
Wanneer je een selectievakje aanvinkt, komt in een
gekoppelde cel de waarde: "WAAR" of "ONWAAR" te staan
(indien niet aangevinkt. De macro 'Activeren' moet
in "BladA" de aangegeven kolommen verbergen of zichtbaar
maken. Dat kan dus zijn: kolom N tonen, kolom o verbergen,
kolom P tonen, enz.
Hier nog even opnieuw de macro-code, welke nog niet goed
werkt. Ziet iemand hier een fout in?
If Range("n15") = "WAAR" Then 'cel n15 staat in BladB'

Sheets("BladA").Select
Columns("N:N").EntireColumn.AutoFit 'kolom tonen +

breedte aanpassen'

Else 'indien cel n15 is ONWAAR'
Sheets("BladA").Select
Columns("n:n").Select
Selection.EntireColumn.Hidden = True 'kolom

verbergen'

End If
If Range("o15") = "WAAR" Then
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.ColumnWidth = 10
Else
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.EntireColumn.Hidden = True
End If
'enz'
End Sub

Heb ik mezelf zo wat duidelijker kunnen maken en zie je
het probleem?

-----Original Message-----
Ben,
Sheets("overzicht").Columns("N:N").EntireColumn.Hidden =

True

Om alle kolommen terug zichtbaar te maken: Slechts één
Sheets("overzicht").Columns.EntireColumn.Hidden = False
Wat je met al die rest wil bereiken snap ik niet.
AutoFit... ColumnWidth ...
Het ging hem toch enkel om kolommen verbergen, en terug

zichtbaar maken?

En hoe jij aan Sheets("overzicht") komt snap ik ook al

niet. Ik heb

intussen reeds 2 Excel versie's gehad, en telkens werd de

naam overzicht

geweigerd (Is gereserveerd)
Luc

Voor de oplettende onder ons: het klopt inderdaad dat ik
dit onderwerp al eerder is genoemd, maar dacht het beter
opnieuw te kunnen stellen, daar er al veel dagen tussen
zitten en anders bij niemand de vervolgvraag meer

opvalt.

Ik wil graag middels een macro's kolommen zichtbaar

maken

of verbergen afhankelijk van de wensen van de gebruiker.
Ik heb hiertoe onder elke kolomtekst een selectievakje
gemaakt, die in de cel daaronder de tekst "WAAR"
of "ONWAAR" vermeld, afhankelijk van het 'vinkje'.
Vervolgens heb ik een macro (genaamd 'Activeren')

gemaakt

If Range("n15") = "WAAR" Then
Sheets("overzicht").Select
Columns("N:N").EntireColumn.AutoFit
Else
Sheets("overzicht").Select
Columns("n:n").Select
Selection.EntireColumn.Hidden = True
End If
If Range("o15") = "WAAR" Then
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.ColumnWidth = 10
Else
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.EntireColumn.Hidden = True
End If
'enz'
End Sub
Het werkt alleen niet lekker. Kolommen worden niet goed
verborgen of zichtbaar gemaakt. Weet iemand wat ik nou
fout doe?
Ik wil ook graag het blad beveilgen, maar dan kan je de
selectievakjes niet meer aan- of uitvinken. Hoe kan je

dit

verhelpen?
Alvast erg bedankt voor alle hulp.
Groetjes,
Ben

.

[Ben]

Het werkt geweldig! Ben er echt blij mee! (op
het "overzicht" na :)
Weet je ook hoe je ervoor kan zorgen dat je de
selectievakjes wel kunt aan- of uitvinken op een beveiligd
blad?

-----Original Message-----
Ben,
If Range("n15") = TRUE Then
With Sheets("overzicht").Columns

("N:N").EntireColumn

.Hidden = False
.AutoFit
End With
Else
Sheets("overzicht").Columns

("n:n").EntireColumn.Hidden = True

End If
enz.
Luc
Bedankt voor je reactie Luc, ik zal nog wat toelichten.
Je hebt gelijk dat het bladnaam "overzicht" niet te
gebruiken is, het was maar even een verzonnen fictieve
naam. Ik wist niet dat deze naam uberhaupt niet kon.

Sorry.

Wat ik wil is niet alle kommen in 1x verbergen of
zichtbaar maken, maar alleen diegene tonen die met het
selectievakje aangevinkt zijn. De niet aangevinkte moeten
verborgen worden.
Ik heb dus een "BladA" (een soort instellingen-blad)waarin
het originele overzicht staat en een "BladB" waarin alleen
de kolomkoppen van dat overzicht staan, met daaronder
selectievakjes.
Wanneer je een selectievakje aanvinkt, komt in een
gekoppelde cel de waarde: "WAAR" of "ONWAAR" te staan
(indien niet aangevinkt. De macro 'Activeren' moet
in "BladA" de aangegeven kolommen verbergen of zichtbaar
maken. Dat kan dus zijn: kolom N tonen, kolom o verbergen,
kolom P tonen, enz.
Hier nog even opnieuw de macro-code, welke nog niet goed
werkt. Ziet iemand hier een fout in?
If Range("n15") = "WAAR" Then 'cel n15 staat in BladB'

Sheets("BladA").Select
Columns("N:N").EntireColumn.AutoFit 'kolom tonen +

breedte aanpassen'

Else 'indien cel n15 is ONWAAR'
Sheets("BladA").Select
Columns("n:n").Select
Selection.EntireColumn.Hidden = True 'kolom

verbergen'

End If
If Range("o15") = "WAAR" Then
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.ColumnWidth = 10
Else
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.EntireColumn.Hidden = True
End If
'enz'
End Sub

Heb ik mezelf zo wat duidelijker kunnen maken en zie je
het probleem?

-----Original Message-----
Ben,
Sheets("overzicht").Columns("N:N").EntireColumn.Hidden =

True

Om alle kolommen terug zichtbaar te maken: Slechts één
Sheets("overzicht").Columns.EntireColumn.Hidden = False
Wat je met al die rest wil bereiken snap ik niet.
AutoFit... ColumnWidth ...
Het ging hem toch enkel om kolommen verbergen, en terug

zichtbaar maken?

En hoe jij aan Sheets("overzicht") komt snap ik ook al

niet. Ik heb

intussen reeds 2 Excel versie's gehad, en telkens werd de

naam overzicht

geweigerd (Is gereserveerd)
Luc

Voor de oplettende onder ons: het klopt inderdaad dat

ik

dit onderwerp al eerder is genoemd, maar dacht het

beter

opnieuw te kunnen stellen, daar er al veel dagen tussen
zitten en anders bij niemand de vervolgvraag meer

opvalt.

Ik wil graag middels een macro's kolommen zichtbaar

maken

of verbergen afhankelijk van de wensen van de

gebruiker.

Ik heb hiertoe onder elke kolomtekst een selectievakje
gemaakt, die in de cel daaronder de tekst "WAAR"
of "ONWAAR" vermeld, afhankelijk van het 'vinkje'.
Vervolgens heb ik een macro (genaamd 'Activeren')

gemaakt

If Range("n15") = "WAAR" Then
Sheets("overzicht").Select
Columns("N:N").EntireColumn.AutoFit
Else
Sheets("overzicht").Select
Columns("n:n").Select
Selection.EntireColumn.Hidden = True
End If
If Range("o15") = "WAAR" Then
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.ColumnWidth = 10
Else
Sheets("Opmaaktest").Select
Columns("o:o").Select
Selection.EntireColumn.Hidden = True
End If
'enz'
End Sub
Het werkt alleen niet lekker. Kolommen worden niet goed
verborgen of zichtbaar gemaakt. Weet iemand wat ik nou
fout doe?
Ik wil ook graag het blad beveilgen, maar dan kan je de
selectievakjes niet meer aan- of uitvinken. Hoe kan je

dit

verhelpen?
Alvast erg bedankt voor alle hulp.
Groetjes,
Ben

.

.