Werkblad openen op de huidige datum

[janemmers]

In de bijlage een bestand waarop ik het blad wil openen op de huidige datum.
Ik heb een visualbasic code gemaakt die prima werkt als je de waarde in kolom a vervangt door echte datums.
Ik wil in dit blad zelf een startdatum bepalen (Cel b1) en vervolgens de datums in kolom a aanvullen.

Op welke wijze kan ik het werkblad toch op de huidige datum laten openen

 

[VenA]

Probeer het zo eens

Private Sub Workbook_Open()
  Application.Goto Sheets("Blad1").Columns(1).Find(Format(Date, "d-mmm"), , xlValues), 1
End Sub

 

[janemmers]

Probeer het zo eens

Private Sub Workbook_Open()
  Application.Goto Sheets("Blad1").Columns(1).Find(Format(Date, "d-mmm"), , xlValues), 1
End Sub

Werkt goed. Ik heb alleen nu het format van de datum aangepast naar 01-04-2016 (Ipv 1-apr)
In de code heb ik dat als volgt aangepast. Resultaat: Werkt niet Hoe krijg ik het werkend

Private Sub Workbook_Open()
Application.Goto Sheets("Blad1").Columns(1).Find(Format(Date, "dd-mm-jjjj"), , xlValues), 1
End Sub

 

[Cobbe]

jjjj is Nederlands, VBA luistert naar UK's

 

[janemmers]

dd-mm-yyyy werkt helaas ook niet

 

[HSV]

Private Sub Workbook_Open()
   Application.Goto Sheets("Blad1").Columns(1).Find(Date, , , xlWhole)
End Sub

 

[janemmers]

Helaas werkt niet
Zie bijlage

 

[HSV]

beter?

 ActiveWindow.ScrollRow = application.Match(CLng(Date), Sheets("Blad1").Columns(1), 0)

 

[janemmers]

Stukken beter.

Ik wil nog iets hiermee, wellicht kun je hiermee ook op weg helpen

Ik heb een excelbestand dat bestaat uit 2 tabbladen tabblad a en tabblad b
Afhankelijk op welke wijze het bestand afgesloten is opent deze in tabblad a of b

De hierboven genoemde macro moet enkel werken als het excel bestand zich opent in tabblad b
Is daar ook een formule / code voor

 

[HSV]

if activesheet.name= "b" then

 

[janemmers]

Ik heb er dit van gemaakt maar helaas werkt niet.
Ik heb deze geplaatst in This workbook
In macro1 staat de code die verwijst naarde huidge datum in blad b(getest en werkt)

Private Sub Workbook_Open()
If ActiveSheet.Name = "b" Then Application.Run "macro1"
End Sub

 

[HSV]

Waarom nog weer splitsen?

[COLOR=#3E3E3E]Private Sub Workbook_Open()
[/COLOR]if activesheet.name= "b" then ActiveWindow.ScrollRow = application.Match(CLng(Date), Columns(1), 0)
end sub

 

[janemmers]

Is inderdaad beter zo. Bedankt voor je geduld