Datum van vandaag zoeken en deze ook in beeld brengen via macro in: THISWORKBOOK

[samui]

Hallo,

Ik heb in tabblad Weekrooster in de 3e rij vanaf E3, F3 etc de datums staan voor dit hele jaar.
Welke macro moet ik hier nu plaatsen, in ThisWorkbook, als ik dit bestand open elke dag en dan automatisch de dag van vandaag te zien krijg en daar kan gaan werken?
Nu moet ik elke keer een heleboel kolommen opschuiven om op de dag van vandaag te komen.

Alvast bedankt voor de reacties.
Mocht bestand nodig zijn doe ik het toevoegen maar ik verwacht dat dit niet nodig is voor een van jullie rotsen in de branding. :thumb:

Frank

 

[edmoor]

Zoiets:

Private Sub Workbook_Open()
    Sheets("Blad1").Cells.Find(What:=Date, _
        After:=ActiveCell, _
        LookIn:=xlFormulas, _
        LookAt:=xlPart, _
        SearchOrder:=xlByRows, _
        SearchDirection:=xlNext, _
        MatchCase:=False, _
        SearchFormat:=False).Activate
End Sub

 

[gast0660]

Of zoiets?

Private Sub Workbook_Open()
 Dim xrange As Range
Worksheets("Blad1").Range("A1").Select
    
   Set xrange = Cells.Find(Date)
    If xrange Is Nothing Then
        MsgBox "Datum van vandaag niet gevonden!"
    Else
        xrange.Select
    End If
End Sub

 

[samui]

Perfect Edmoor Ik wist dat ik niet lang hoefde te wachten op je oplossing.
Werkt perfect.
Bedankt weer en tot een volgende keer.
Sluit de vraag.

PS
gast0660 ook bedankt voor je reactie, komt ook net binnen.
Zal deze ook checken.

 

[snb]

Gebruik hiervoor application.goto