Automatisch naar dag van vandaag

[kuriyama]

Ik heb een Excel bestand.
Daar wil ik bij openen van het bestand automatisch naar de dag van vandaag.
Bijv. Ik open op 11-10 dit bestand, dan wil ik ook dat 11-10 als eerste in kolom/regel te zien is.


Hoe moet ik dat doen?

 

[TempoWillem]

Typ in de cel de opdracht

=VANDAAG()

Zonder de () werkt de functie niet en als je niets tussen de haakjes zet wordt de actuele (systeem)datum weergegeven.

Succes!

 

[MarcelBeug]

Bekijk bijlage Ga naar vandaag.xlsm
Zoiets?
In dit bestand heb je ook gelijk gekleurde weekeinden (zie je andere vraag).
Wederom geldt dat we je met een bijgevoegd bestand veel beter kunnen helpen, maar goed.

De oplossing in mijn bestand is dat ik een naam heb gedefinieerd (zie tab Formules - Namen beheren) met de naam Vandaag en verwijzing naar =INDEX(Blad1!$A:$A;VERGELIJKEN(VANDAAG();Blad1!$A:$A;0))

Dan in VBA, ThisWorkbook:

Private Sub Workbook_Open()
    Application.Goto Reference:="Vandaag"
End Sub

@TempoWillem: ik geloof niet dat dat het antwoord is op de vraag. En bij VANDAAG() kun je helemaal niets tussen haakjes zetten.

 

[snb]

Vage vragen, vage antwoorden:

Private sub workbook_open()
  application.goto sheets(1).rows(1).find(date),true
End Sub

 

[TempoWillem]

@TempoWillem: ik geloof niet dat dat het antwoord is op de vraag. En bij VANDAAG() kun je helemaal niets tussen haakjes zetten. [/QUOTE]

Ik lees eerst

Daar wil ik bij openen van het bestand automatisch naar de dag van vandaag.

Wat je zou kunnen opvatten als gaan naar een tabblad of regel met de huidige datum. Maar daarna schrijft TS

Bijv. Ik open op 11-10 dit bestand, dan wil ik ook dat 11-10 als eerste in kolom/regel te zien is.

wat weer de indruk geeft dat TS in A1 de huidige datum wil zien....

Dus volgens mij beantwoord ik zijn vraag keurig, ik had hooguit beter kunnen schrijven "eerste cel" in plaats van "de cel".

Zoals snb al aangeeft:

Vage vragen, vage antwoorden:

TS is niet heel duidelijk dus vele antwoorden zijn mogelijk, mijn oplossing lijkt me het simpelste antwoord op de simpelste interpretatie van de vraag

Wat betreft de haakjes: je hebt helemaal gelijk, als je er meer mee wilt moet het voor VANDAAG en/of achter () komen...

 

[MarcelBeug]

Ok, fair enough. TS zorgt voor de nodige verwarring hier. Ben benieuwd naar zijn reactie.

 

[kuriyama]

Ik zou graag een bestand meesturen.
Maar het bestand is te groot!!
Ook na ZIPPEN IS HET TE GROET.

en nu?

 

[HSV]

en nu?

Maak een voorbeeld-bestand, die kan nooit te groot worden.

 

[kuriyama]

Bekijk bijlage AANGEPAST - Vakantieplanning 2015.xlsm

Hierbij een aangepast bestand.

 

[kuriyama]

Typ in de cel de opdracht

=VANDAAG()

Zonder de () werkt de functie niet en als je niets tussen de haakjes zet wordt de actuele (systeem)datum weergegeven.

Succes!

Hi Tempowillem,

Deze oplossing ken is, maar is niet wat ik wil.

Als ik het bestand open op welke dag dan ook wil ik dat de dag van vandaag in Cel E5 en E6 komt te staan.

 

[MarcelBeug]

Hi Tempowillem,

Deze oplossing ken is, maar is niet wat ik wil.

Als ik het bestand open op welke dag dan ook wil ik dat de dag van vandaag in Cel E5 en E6 komt te staan.

Dat is toch precies wat =VANDAAG() doet?

 

[HSV]

Private Sub Workbook_Open()
With Sheets("vakantieschema")
  .Range("C2") = Year(Date)
  .Range("C6") = Format(Date, "mmmm")
  Application.Goto .Range("E5:AI5").Find(Format(Date, "dd/mm"), , xlValues, 1), True
End With
End Sub

 

[kuriyama]

Helaas is dat niet wat ik bedoel.

Ik heb 2 afbeeldingen als bijlage.

Ik wil dat als ik op die data's het bestand op deze waarde op Cel E5 en E6 staan.

 

[HSV]

Iets gewijzigd.

Private Sub Workbook_Open()
With Sheets("vakantieschema")
  .Range("C2") = Year(Date)
  .Range("E5") = Date
  .Range("E5").NumberFormat = "dd-mm"
  .Range("C6") = Format(Date, "mmmm")
  Application.Goto .Range("E5:AI5").Find(Format(Date, "dd/mm"), , xlValues, 1), True
End With
End Sub

 

[kuriyama]

Dank je Harry,
Maar hoe moet ik dat in mijn bestand verwerken?

 

[HSV]

Druk Alt+F11 (nu zit je in de VB-editor.
Dubbelklik in de projectverkenner (linkerkant) op ThisWorkbook.
Zet de code in het grote witte vlak.
Sluit Vb-editor.
Bestand opslaan.
Sluit het bestand en heropen het, of ga met F8 door de code in de VB-editor.

 

[kuriyama]

Hi Harry,
Ik heb de gegevens op jouw manier ingevuld.
Maar ik zie niet het resultaat wat ik wil zien.

 

[HSV]

En wat zie jij dan anders dan ik hier zie?

 

[kuriyama]

Ik had gehoopt in Cel E5 en E6 de datum van vandaag te zien.
Maar ik zie gewoon 1-1-2015

 

[HSV]

Ik niet!
Zie bestand.