Kalender

[JanBG]

Hallo,

Ik ben op zoek naar een formule om bij het openen van een Excel kalenderbestand automatisch de cursor in de dag van vandaag te plaatsen

 

[JEC.]

Dat kan via VBA. Dan wel even je bestand plaatsen

 

[JanBG]

Zie bijlage

 

[JEC.]

Bvb met deze achter je ThisWorkbook module

Private Sub Workbook_Open()
Application.Goto Sheets(1).UsedRange.Columns(1).Find(Format(Date, "mmmm"), , -4163).Offset(-1, Day(Date))
End Sub

 

[snb]

Om te illustreren hoe belangrijk de struktuur is:

Private Sub Workbook_Open()
  Application.Goto Blad1.Cells(10 * (Month(Date) - 1) + 2 + (Month(Date) - 7), 1)
End Sub

1. Gebruiik nooit samengevoegde cellen
2. Splits nooit soortgelijke gegevens over beschillende werkbladen, bestanden. directories.
3. Zet alle gegevens in 1 werkblad.
4. Maak 1 apart werkblad voor de weeergaven van (een gedeelte) van alle gegevens.

In de bijlage in blad januari hoe de gegevens ingevoerd zouden moeten worden omoptimaal gebruik te kunnen maken van de mogelijkheden van Excel.