Rooster openen op de dag van vandaag.

[Pr0x]

Hallo Allemaal,

Momenteel ben ik bezig met het aanpassen van een rooster dat in Excel wordt bijgehouden.
Qua layout ziet deze er om en nabij uit zoals bijgevoegd.

Hoe krijg ik het voor elkaar dat het rooster altijd opent in het juiste tabblad en de dag van vandaag geselecteerd staat / zichtbaar is.
Dit ongeacht hoe er "opgeslagen" wordt.

- Hierbij mag tekstueel e.e.a. aangepast worden.
- De opbouw van kolommen moet bewaard blijven.

N.B. er zit ook een macro in die het rooster na 10 minuten sluit.
Dit omdat enkele planners onnodig het rooster "vast" houden.
Deze moet blijven bestaan.

Alvast bedankt voor jullie hulp!

 

[gast0660]

Zie voorbeeld.
De code kan je vinden in de ThisWorkbook module.
Ik heb rij vier omgezet in datums, het voorbeeld bevatte geen enkele datum.)
Kijk naar de celopmaak in aangepast en zie de waarde in de formulebalk.

Edit: welkom op het forum

 

[HSV]

Application.Goto Sheets("Rooster").Rows(4).Find(Date, , , 1), -1

 

[snb]

Private Sub Workbook_Open()
  Application.Goto Blad1.Cells(6, DatePart("y", Date) + 1), -1
End Sub