automatisch scrollen bij activate

[exe125]

Alvast eerst mijn beste wensen voor 2008 !

Een vraagje.

Ik heb een Excel-sheet met in kolom A een oplopende reeks datums:

cel A1 = 1/06/2007
cel A2 = 2/06/2007
cel A3 = 3/06/2007
.
.
.
cel A215 = 1/01/2008
cel A216 = 2/01/2008
enz ....

Hoe kan ik ervoor zorgen (in VBA) dat bij het openen er automatisch gescrolld wordt naar de huidige datum.
Alvast dank voor uw antwoord.

 

[Finch]

In je workbook_open een find opdracht uitvoeren naar de huidige datum, en dan die cel activeren.

 

[exe125]

In je workbook_open een find opdracht uitvoeren naar de huidige datum, en dan die cel activeren.

Beste Finch,

Alvast dank voor je antwoordje.
Ik ben al geruime tijd op zoek maar zit ergens vast met mijn code.

Op welke manier ik het moet oplossen weet ik wel maar ik krijg steeds volgende foutmelding:

Objectvariabele of blokvariabele With is niet ingesteld

Mijn code:

Sub Knop2_BijKlikken()
    Worksheets(1).Columns(1).Find(What:="29/08/2007", After:=[A1], LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False).Activate
End Sub

Wie helpt me hierbij verder?

 

[ReneDirks]

Als er geen resultaat is van de zoekopdracht krijg je een 'Nothing' object, en dat kan niet geactiveerd worden. Waarschijnlijk zul je zo iets moeten doen:

  Dim r As Range
  Set r = Worksheets(1).Columns(1).Find(What:="29/08/2007", After:=[A1],  LookIn:=xlFormulas, LookAt 
  :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
  False)

  [B]If Not (r Is Nothing) Then r.Activate[/B]

Verder vermoed ik dat je een format moet gebruiken om deze datum te vinden, dus voor de Set r = ...

  Application.FindFormat.NumberFormat = "m/d/yyyy"