Kolommen verbergen met vba

[MartinPet]

Goeiedag,

Voor een complexe urenregistratie heb ik een tabel gemaakt met tijdvakken.
De persoon moet met eigen vervoer naar verschillende locaties.
Met wat macro's laat ik verschillende kolommen verbergen.

Het werkt wel maar het gaat een beetje hakkelend.

Is er een manier om het wat vloeiender te laten overgaan met wellicht een voorbeeld?

Dank, Martin.

 

[JeanPaul28]

Test deze eens voor tijdvak1

Sub tijdvak1()
    Columns("E:AR").Hidden = False
    Columns("I:AR").Hidden = True
    Range("A:A").Find(Date).Offset(0, 4).Select

End Sub

 

[edmoor]

Of dit:

Sub tijdvak1()
    Application.ScreenUpdating = False
    Columns("E:AR").Hidden = False
    Columns("I:AR").Hidden = True
    Range("A:A").Find(Date).Offset(0, 4).Select
    Application.ScreenUpdating = True
End Sub

 

[MartinPet]

Bedankt JeanPaul en Edmoor.

Ik heb de twee oplossingen toegepast op de rest van de tijdvakken , hartstikke mooi.

Deze vraag is opgelost.