Macro kan de datum niet vinden

[ExcelAmateur]

Hallo,

Ik zit met een probleem, deze regel kan de cel met de datum niet vinden.

Fadres = Rows(1).Find(Date).Offset(2).Address

B.V.B. G1 = 28-8-2012 en H1= G1+1 enz.

Als in iedere cel gewoon de datum word geschreven dan vind hij de datum van vandaag wel.
Het is de bedoeling om in H1 een datum te plaatsen en hij de andere cellen aanpast met de opvolgende datum.

Wie weet hoe je dit kunt oplossen, zodat hij de datum wel vind?

 

[ExcelAmateur]

Ik heb het zelf al gevonden.
Gebruik nu eerst dit.

Range("K1").AutoFill Destination:=Range("K1:S1"), Type:=xlFillDefault

Ik zet de vraag voorlopig als opgelost.

 

[HSV]

Fadres = Sheets(1).Rows(1).Find(Date, , xlValues, xlWhole, , , True).Offset(2).Address

 

[ExcelAmateur]

HSV,

Dank u wel voor de code, zo werkt het inderdaad ook.