Dichtsbijzijnde datum selecteren

[janemmers]

Ik heb ik het voorbeeldbestand in kolom a data staan (op volgorde)
Ik wil de datum selecteren die het dichts bij de huidige datum ligt
De selectie wordt onderdeel van een macro dus graag in VBA


Bekijk bijlage test.xlsx

 

[SjonR]

Ik kwam deze tegen van SNB.

Sub snb()
    Cells([MATCH(SMALL(ABS((E1-(A1:A1000))),1),ABS((E1-(A1:A1000))),0)], 1).Select
End Sub

E1 vertegenwoordigd de cel met de datum van vandaag, dus die moet je even aanpassen.