Opzoeken vanddag d.m.v. Find(Date)

[Marrosi]

In kolom 3 van mijn werkblad 'Sheets1' staan al de datums van dit jaar.

Nu wil ik d.m.v onderstaand macrootje direkt naar de rij met de gegevens van "vandaag" gaan;

Sub GaNaarVandaag()

Dim Vandaag As Range
Sheets("Sheet1").Select
Set Vandaag = Sheets ("Sheet1").UsedRange.Columns(3).Cells.Find
(Date).EntireRow
Vandaag.Select

End Sub

Ik krijg echter foutmelding Run-time error 91 - Vaariable or with block variable not set.

Weet er iemand wat ik fout doe?

Dank bij voorbaat voor alle suggesties.

Groetjes van Marrosi

 

[LucHeyndrickx]

Marrosi,

Bij mij werkt die code perfect. Tenzij die datum er niet inzit dus.

Let op volgende zaken:
Die datum die je moet terugvinden, moet ook werkelijk een datum zijn (geen tekst)
Het moet precies die datum zijn (Dus niet: 20/9/04 00:00:01). Dit is niet steeds duidelijk te zien, maar uw datum kan die datum zijn, plus enkele uren, of seconden)

Ook uw A kolom moet gevuld zijn met waarden. Niet alleen de C kolom, waar je de datum wenst te vinden.

Luc

 

[Marrosi]

Luc,

Bedankt voor de tips.
Ik zal vanavond eens een en ander nazien!!

Beste groeten van Marrosi