Kolom openen op week

[N12047]

Beste mensen,

Bijgaand een bestandje wat ik hier op het grote www een aantal weken gedownload heb.
Graag zou ik dit bestandje willen openen op het goede huidige weeknummer (eerste maandag van de week).
Als het zou openen op de huidige dag, dan kan ik niet terugkijken in de week.

Vandaag wederom gezocht op het www maar hier geen oplossing voor kunnen vinden.

Wie kan mij hierbij helpen?

 

[Cobbe]

Plak deze in ThisWorkbook:

Private Sub Workbook_Open()
 Set c = Rows(2).Find(DatePart("ww", Date), LookIn:=xlValues)
  If Not c Is Nothing Then
    ActiveWindow.ScrollColumn = c * 7
  End If
End Sub

 

[N12047]

Werkt prima Cobbe,

Bedankt.