zoeken op alle tabbladen naar datum

[mierl275]

Dag,

Ik zit met het volgende probleem.
Ik heb een planning met op elk tabblad een maand (jan - dec). Nu wil ik dat bij het opstarten van excel automatisch naar de juiste datum wordt gegaan.

Na veel zoeken op het forum kwam ik het volgende VBA script tegen wat goed werkt, indien alles op de actieve sheet staat. Maar als ik de datum van vandaag (12-dec) moet zoeken als het tabblad januari actief is gaat dit niet.

Ik heb verder geen kennis van VBA, maar het lijkt me dat dit eenvoudig op te lossen is, maar ik kom er niet uit...

Wie kan mij helpen om deze code te verbeteren???

Huidige code:

Private Sub Workbook_Open()

Dim lDatumRegel As Long


lDatumRegel = Cells.Find(Date).Column
ActiveWindow.ScrollColumn = lDatumRegel


End Sub

alvast hartelijk dank!!

 

[Roncancio]

Private Sub Workbook_Open()

Dim lDatumRegel As Long
On Error Resume Next

lDatumRegel = Worksheets(Format(Now(), "[B]mmm yy[/B]")).Cells.Find(Date).Column
ActiveWindow.ScrollColumn = lDatumRegel


End Sub

Bovenstaande code zoekt naar de datum van vandaag in het werkblad dec 08.
Het kan dus zijn dat je het vetgedrukte gedeelte van de code aan moet passen aan namen van de tabbladen.

Met vriendelijke groet,


Roncancio

 

[mierl275]

Erg bedankt voor deze snelle reactie...
maar....

mijn tabbladen heten voluit "januari" "februari" "maart" ..."december".

Dus werkt de "mm yy" niet, toch???

Wat kan ik er dan nog meer van maken?

 

[Roncancio]

Private Sub Workbook_Open()

Dim lDatumRegel As Long
On Error Resume Next

lDatumRegel = Worksheets(Format(Now(), "mmmm")).Cells.Find(Date).Column
ActiveWindow.ScrollColumn = lDatumRegel


End Sub

Klopt maar met bovenstaande code moet het lukken.

Met vriendelijke groet,


Roncancio

 

[snb]

Private Sub Workbook_Open()
  Application.Goto Sheets(Format(Date, "mmmm")).Cells.Find(Date)
End Sub

 

[mierl275]

Hey Roncancio,

Helemaal TOP!!!

Bedankt voor je moeite en snelle response

Mark