Dags dato via VBA

Måske du kan bruge det her.

https://www.dropbox.com/s/aifdb3cw80n7qic/Hyperlink_Today.xlsx?dl=0

eller noget ala:

Option Explicit
Dim rColumn As Range, rcell As Range

Private Sub Worksheet_Activate()
    Set rColumn = ("A2:A366")
    For Each rcell In rColumn
        If rcell.Value = Now Then Application.Goto rcell, True
    Next
End Sub

i arkets kodemodul

Jan

eller under forudsætning af at dine datoer er i kolonne A

Sub FindToday()
    Range("A:A").Find(What:=Date, After:=Range("A1"), LookIn:=xlFormulas, LookAt _
            :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False).Activate
End Sub

Sub Gå_Til_IDag()
    For Each c In Range("A2:A366").Cells
        If c.Value = Date Then
            c.Activate
            Exit Sub
        End If
    Next
End Sub

#4
Kam du forklare hvor der sker i den kode du har skrevet?
Hvad betyder fx. c.value?

Koden kikker cellerne A2 til A366 igennem en efter en,
første gang vil c være =A2´s værdi (Value),
næste gang vil c være =A3´s værdi.... osv.

Når c.value så er = dags dato, aktiveres denne celle.

Kan også skrives sådan:

Sub Gå_Til_IDag()
    For Each celle_med_dato In Range("A2:A366").Cells
        If celle_med_dato.Value = Date Then
            celle_med_dato.Activate
            Exit Sub
        End If
    Next
End Sub

Er dog ikke så kønt ;-)

Hvis du ikke ønske dato cellen markeret kan lege med: Offset

Sub Gå_Til_IDag()
    For Each c In Range("A2:A366").Cells
        If c.Value = Date Then
            c.Offset(0, 1).Activate
            Exit Sub
        End If
    Next
End Sub

Som vil markerer cellen til højre for cellen med: dags dato. (Kolonne B)