Scrollen naar datum

[wieter]

Mijne champetter haar geheugen geeft af.
Daarom maakte ik voor haar een soort kalender, die ze vanop haar bureaublad kan openen.
Ik wil dat bij openen, de kalender scrollt naar de datum van vandaag.
Met de onderstaande code lukt het niet!
Wie weet de oplossing?

Private Sub Workbook_Open()
ActiveWindow.ScrollRow = Sheets(1).Columns(4).Find(what:=Date).Row - 10
End Sub

Groeten, Wieter

Bekijk bijlage kalender1.xlsm

 

[Haije]

Wieter,

met een hulpkolom en een extra formule in A1 zou het kunnen, zie bijlage

 

[HSV]

Private Sub Workbook_Open()
 Application.Goto Sheets(1).Columns(4).Find(Format(Date, "dddd dd mmmm yyyy"), , xlValues, xlWhole), True
End Sub

 

[Haije]

@HSV,

veel mooier dan mijn poging!

 

[wieter]

Bedankt voor de oplossingen.
Toch ga ik voor de oplossing van Haije kiezen ( in verborgen kolom), omdat bij de oplossing van Harry,
met die "Application.Goto" alles verschuift naar kolom D.

 

[HSV]

Ik vind het prima hoor, hier een mix van beide zonder de hulpcel.

Private Sub Workbook_Open()
 ActiveWindow.ScrollRow = Sheets(1).Columns(4).Find(Format(Date, "dddd dd mmmm yyyy"), , xlValues, xlWhole).Row - 10
End Sub

 

[wieter]

Ja Harry, dat is het.
Werkt prima!
Bedankt voor de oplossing