VBA code knop om naar huidige datum te springen

[Mellie1991]

Hoi,

Ik heb een tabel (Tabel1 op het blad WBSO), waarbij in de eerste kolom de data van het hele jaar staan, de tweede kolom de uren zijn, en de derde kolom de omschrijving.
Ik gebruik dit om mijn gewerkte uren in bij te houden. Nu heb ik een keer bij iemand gezien dat die een 'simpele knop' had gemaakt om naar de datum van vandaag te springen.
Dat leek me handig, aangezien de database steeds langer zal worden en er naar scrollen op den duur erg vervelend is.

Dus enthousiast ben ik begonnen aan een poging om zo'n knop te maken in mijn eigen bestand..
ik heb meerdere codes geprobeerd en van verschillende sites gehaald, maar ik krijg het niet voor elkaar..

Weet iemand de code om dit in te stellen?
(ik heb dus een knop gemaakt, en met het klikken daarop zou ik graag naar de juiste rij toe 'springen')

 

[Niels28]

Sub vandaag()
Application.Goto ActiveSheet.Range("A:A").Find(CDate(Date))
End Sub

Niels

 

[sylvester-ponte]

laat maar eens een poging zien

 

[Mellie1991]

Bedankt

Bedankt voor de code
Zie nu wat ik tot nu toe fout heb gedaan