Bij openen van bestand naar de datum van vandaag

[Rescue]

Goedemiddag,

Ik ben met een planningsbestandje bezig, met behulp van anderen hier op het forum lukt dit aardig.
Ook heb ik hier een VBA code gevonden die bij het openen van mijn bestand naar de datum van vandaag zou moeten springen, dit lukt mij niet om dit goed te krijgen.

In het voorbeeld heb ik de gevonden (en aangepaste code) geplaatst.
Wat doe ik verkeerd?, er gebeurd wel iets maar ik krijg niet de datum van vandaag ervoor.

Groet Rescue.

 

[HSV]

Private Sub Workbook_Open()
 Application.Goto Sheets("jaarplanning").Cells(2, Application.Match(CLng(Date), Rows(2), 0)), True
End Sub

 

[Rescue]

Dag Harry,

Werkt perfect, al weet ik nu nog niet goed wat ik verkeerd deed met de andere code. Deze is wel veel korter, heel erg bedankt.

Nog een vraag, is er een optie om deze eventueel ook met een knop aan te sturen? Dit rooster komt op een groot scherm en blijft waarschijnlijk aan staan.
Of is er een andere optie, automatisch verversen per dag of zoiets? Maar misschien wil ik wel het onmogelijke...

Groet Rescue.

 

[HSV]

Of is er een andere optie, automatisch verversen per dag of zoiets? Maar misschien wil ik wel het onmogelijke...

Staat het bestand continu open dan, anders gebeurt dit al bij het openen van je bestand.

 

[snb]

Als 1 januari in kolom D staat, dan staat vandaag in de kolom die daarvan het aantal dagen tussen vandaag en 1 januari verschilt.
En met Excel kun je prima rekenen.

Private Sub Workbook_Open()
  Application.Goto Blad3.Cells(1, 3 + DatePart("y", Date)), 1
End Sub

 

[Rescue]

@Harry, ja, dit is wel de bedoeling. Heel af en toe zal het bestand bijgewerkt worden. Werkt deze code automatisch bij per dag?
@SNB, ik ga eens proberen deze code te ontleden in stukjes.

Allebei bedankt voor jullie moeite.

 

[emields]

en als de code korter moet kan je het ook zo doen, met echte datums in rij 2

 

[HSV]

Het gedeelte van @snb overgenomen (mooi kort).

Alle codes in Thisworkbook plaatsen.
Het bestand wordt bijgewerkt om 22:00 uur (zelf aanpassen indien gewenst, maar wel beide).

Private Sub Workbook_Open()
 ThisWorkbook.bijwerken
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.OnTime TimeValue("[COLOR=#ff0000]22:00:00[/COLOR]"), "ThisWorkbook.bijwerken", , False
End Sub


Sub bijwerken()
  Application.OnTime TimeValue("[COLOR=#ff0000]22:00:00[/COLOR]"), "thisworkbook.bijwerken"
  Application.Goto Blad3.Cells(1, 3 + DatePart("y", Date)), 1
End Sub