Naar huidige datum springen bij openen Excel

[SiemAnalist]

Hoi allemaal,

Ik heb over dit onderwerp al meerdere topics gelezen.
Alle voorbeelden geprobeerd, maar ik kom er niet uit.

Ik heb een vakantieplanning voor meerdere medewerkers.
Bij het openen van Excel wil ik dat hij naar de datum van de vandaag gaat.

De datums staan in kolom A

Wie kan mij helpen?

 

[AHulpje]

Zo:

Private Sub Workbook_Open()
    Application.Goto Sheets("CBV").Range("A:A").Find(What:=Date, LookIn:=xlValues).Offset(0, 2), False
    ActiveWindow.ScrollRow = ActiveCell.Row - 10
End Sub

 

[snb]

Simone:

Leer af samengevoegde cellen te gebruiken.
Als je liever met papier werkt moet je Excel gewoon links laten liggen.
Als je Excel wil gebruiken maak dan reeksen zonder onderbrekingen: nu is er steede een regel tussen met het (overbodige) woordje 'week'.
Hoe moeilijker leesbaar voor Excel je een werkblad maakt, hoe meer kunstgrepen (formules/codes) je moet toepassen.


De dag van het jaar vind je in VBA eenvoudig met

Sub M_snb()
  MsgBox DatePart("y", Date)
End Sub

In jouw geval kun je dat gebruiken in de Workbook_open gebeurtenis.

Private Sub Workbook_open()
   application.goto sheets(1).cells(8+DatePart("y", Date),1),true
End SUb

 

[emields]

hier nog een ander voorbeeld.