Vise og skjule kolonner med VBA via Userform

Jeg skal lige sige, at det er let nok at skjule dem;

Range("C:C").Select
Selection.EntireColumn.Hidden = True

Men jeg kan ikke få dem frem igen ved at bruge .Hidden = False i stedet...

Range("C:C").EntireColumn.Hidden = True
Range("C:C").EntireColumn.Hidden = False

virker fint - har du glemt EntireColumn når du skal vise kolonnen igen?

Tak for det hurtige svar :-)

Det virker mærkelig nok ikke! Den skjuler, men viser ikke igen - og jeg bruger præcis den kode du har givet...?

Bruger den her kode til checkboksene - måske fejlen ligger der?

Sub VisSkjulKolonner()

Application.ScreenUpdating = False

If chkBeskrivelse = True Then VisBeskrivelse

If chkBeskrivelse = False Then SkjulBeskrivelse


Application.ScreenUpdating = True

End Sub

... og så

Sub Visbeskrivelse()
Range("C:C").EntireColumn.Hidden = False
End sub

Application.ScreenUpdating = False - så kan skærmen ikke opdatere

Sub Visbeskrivelse()
Application.ScreenUpdating = True
Range("C:C").EntireColumn.Hidden = False
Application.ScreenUpdating = False
End sub

Eller hvis du blot lukker dialogboksen efter du har vist kolonne C, så burde du kunne se kolonnen.

Tror måske du blot har et skærmopdaterings issue

Nu har jeg fjernet alt der har med skærmopdatering at gøre, og det hjælper ikke. Jeg tror det ligger hos checkboksene - for når man klikker til/fra skjuler den kolonnen i begge tilfælde, selvom de har hver deres kode (True/False)!

Koden til Userform ser sådan ud:

Private Sub chkBeskrivelse_Click()
VisSkjulKolonner
End Sub

... Så kører den følgende:

Sub VisSkjulKolonner()


If chkBeskrivelse = True Then Range("C:C").EntireColumn.Hidden = False

If chkBeskrivelse = False Then Range("C:C").EntireColumn.Hidden = True


End Sub

?

Jeg har lige testet nedenstående, og det virker fint hos mig Excel 2003

Private Sub chkBeskrivelse_Click()
    VisSkjulKolonner chkBeskrivelse.Value
End Sub

Sub VisSkjulKolonner(ByVal bHidden As Boolean)
    Range("C:C").EntireColumn.Hidden = bHidden
End Sub

Snedigt! Det virker - mange tak :-)

Bortset fra... hvis man kunne reverse den ville det være helt perfekt. Lige nu fjerner man hak, og så skjuler den. Det ville være mere brugervenligt hvis man fjernede hak, for at skjule - kan man det?

Undskyld - man sætter hak for at skjule som det er nu...

Sub VisSkjulKolonner(ByVal bHidden As Boolean)
    Range("C:C").EntireColumn.Hidden = Not bHidden
End Sub

Du bruger bare et lille NOT hvis du vil lave om på det

Takker! Fornemt :-)