Find celle i Excel ark.

Private Sub Workbook_Open()
Sheets("Ark1").Select
For i = 1 To ActiveCell.SpecialCells(xlLastCell).Row
If Range("A" & i) = Date Then
Range("A" & i).Select
End If
Next i
End Sub

den gælder for ark1 og kolonne A
ret selv til dine ønsker

jeg har lagt den i 'Private Sub Workbook_Open()'
så ryger den lige ind på cellen når du åbner mappen,
hvis du kun vil ind på cellen, når du skifter mellem ark er det denne.

Private Sub Worksheet_Activate()
For i = 1 To ActiveCell.SpecialCells(xlLastCell).Row
If Range("A" & i) = Date Then
Range("A" & i).Select
End If
Next i
End Sub

Tak Kabbak.
Koden fungere fint.

Kan den ændres, så det er cellen 3 pladser til højre i samme række, der bliver markeret. Cellen med dags dato er nemlig låst, og må helst ikke blive markeret eller ændret, af brugerne af arket.

du ændrer bare kolonnebogstavet her, til den ønskede kolonne
Range("A" & i).Select

Godt så!.
Tak for hjælpen Kabbak
Der er point på vej.

Lige et spørgsmål / opgave til.

Når jeg beskytter arket, virker koden ikke længere. Kolonnen med datoerne er beskyttet.
Debuggeren markere følgende linie.

For i = 1 To ActiveCell.SpecialCells(xlLastCell).Row

I beskyttet tilstand af arket, er følgende 2 ting tilladt.
Marker ulåste celler
Formater celler