Datum van vandaag tonen

[lobelvin]

Hallo,

Ik heb een bestand met in kolom A1 tot A365 de datums van kalenderjaar 2018, is het mogelijk een knop met bijvoorbeeld een VBA code te plaatsen wanneer ik er op klik ik automatisch naar de datum van vandaag ga?

Alvast bedankt,
Lobelvin

 

[gast0660]

Zoiets?

Sub dotch()
For Each cl In Range("A1:A365")
    If cl.Value = [Today()] Then Application.Goto cl
Next
End Sub

 

[lobelvin]

Hallo gast0660,

Deze code werk perfect, waarvoor mijn dank. :thumb:

Nogmaals bedankt,
Lobelvin

 

[gast0660]

Dank voor de terugkoppeling:thumb:
Suc6

 

[snb]

dat kan veel slimmer

Sub M_snb()
  Application.Goto Cells(DatePart("y", Date), 1)
End Sub