Code om naar vandaag te springen

[pcdummy]

Beste experts,

Ik heb in een bestandje een aantal namen en datums.

Daarbij heb ik een knop die bestemd is om naar de datum van vandaag te springen. Cel C3 heeft de titels geblokkeerd en het is de bedoeling dat als er op de knop wordt gedrukt, het document in cel C3 de juiste kolom van vandaag heeft staan en dat die datum met elke dag meespringt.

Kan iemand me aan de juiste code voor de knop helpen?

Alvast bedankt, pcdummy

 

[Warme bakkertje]

Sub tst()
    With Sheets("Blad1")
        i = WorksheetFunction.Match(CLng(Date), .Rows(1), 0)
        Application.Goto .Cells(1, i), True
    End With
End Sub

 

[pcdummy]

Dank je, werkt perfect! :thumb:

Pcdummy