VBA Datum van vandaag selecteren

[Swordz74]

Ik heb een speadsheet met data op rij 9
Met een knop worden er allerlei berekeningen uitgevoerd.
Ik wil, dat hij met de cursor op de datum van vandaag (evt. minus 4 dagen) gaat staan.
Ik heb allerlei voorbeelden uit het forum geprobeerd, maar ik krijg ze niet werkend in mijn sheet

Ik wilde het al simpel oplossen:
Cells.Find(Date).Activate

Helaas zoekt hij dan in het huidige beeld de datum van vandaag, zodra de datum niet in beeld staat, krijg je foutmeldingen.

Dit werkt ook niet:
Range("9:9").Find(Date).Activate

Heeft iemand een mooie oplossing voor mij?

Ik werk met office 2007; misschien dat dit voor problemen heeft gezorgd....
Helaas krijg ik een testsheet met macro's niet geupload.

Alvast heel erg bedankt

 

[HSV]

Hoi,

.xlsm bestanden moet je tevoren zippen of rarren.

Dim kol
 On Error Resume Next
   kol = WorksheetFunction.Match(CLng(Date), Rows(9), 0)
   Application.Goto Cells(9, kol)

 

[Swordz74]

Wow fantastisch, het werkt!

Hartstikke bedankt!

 

[huijb]

@Excelbert Dit is al de twwede keer dat je inbreekt in iemand anders zijn of haar topic. Niet meer doen is het advies. Gewoon een eigen topic maken. Bovendien is deze topic gedateert