Rijen verbergen op weeknummer

[TinusvD]

Ik ben bezig met een bestandje (een plan kalender) waar rijen niet zichtbaar hoeven te zijn als de week om is.

Rij A en B moet wel in beeld blijven, De weeknummers staan in de 3de rij cellen normaal tot week 52.

Nu heb ik al wat gezocht en uitgeprobeerd maar niet een gevonden die werkte.

Iemand een idee of dit werkt of dat ik mijn bestand moet aanpassen.

 

[Conseclusie]

Je bedoelt kolommen, niet rijen...
Probeer deze macro eens:

Sub HelpMij()
Week = WorksheetFunction.WeekNum(Date, 21)
Range(Cells(1, 3), Cells(1, Week * 2 + 2)).EntireColumn.Hidden = True
End Sub

 

[HSV]

Selecteer cel C3 en vink Titelblokkering aan in het menu Venster.

Geen idee wanneer je de code wilt uitvoeren, maar onderstaande gebeurt bij het openen van het bestand.
In de module van Thisworkbook.

Private Sub Workbook_Open()
Application.Goto Cells(3, Application.Match(DatePart("ww", Date, vbMonday, vbFirstFourDays), Rows(3), 0)), True
End Sub

 

[TinusvD]

Dat zijn ze alle 2...
Uiteindelijk de oplossing van HSV er in gezet...

Dank allen.