Macro naar datum vandaag lukt niet

[snb]

Het heeft niet met de opmaak te maken.
Excel zoekt naar waarden, niet naar vormgegeven waarden.

 

[WHER]

Probeer deze eens, met lange datumnotatie:

 

[Boelie72]

Probeer deze eens, met lange datumnotatie:

Top! deze werkt! zal het ff plaatsen hier voor diegene die het ook wil gebruiken.

Bedankt allemaal

Sub ZoekDatum()
Dim c As Range
Set c = Columns(1).Find(Format(Date, "[$-F800]dddd d mmmm yyyy"), , xlValues, xlPart)

            
            
If c Is Nothing Then
MsgBox "datum niet gevonden"
Else
c.Select
End If
End Sub

 

[Cobbe]

Excel zoek naar waarden

Zoek t

 

[snb]

Dat klop, ik heb het aangepas. :thumb:

 

[Cobbe]

:thumb: :thumb:

 

[WHER]

Zo'n zeldzaam buitenkansje mag je niet laten voorbijgaan....

 

[Cobbe]

En toch heb je niet meer nodig dan dit:

 Private Sub Worksheet_Activate()
  Application.Goto Cells.Find(Date), True
 End Sub

Je datums dien fatsoenlijk opgemaakt te zijn in kolom A.

http://we.tl/SkJlS27tNy

 

[paul1950]

Sub etenvandaag2()
Application.Goto Sheets("menu keuze").Cells(Application.Match([l1], Sheets("menu keuze").Columns(1), 0), 1), True
ActiveWindow.SmallScroll Down:=-4
End Sub

dit werkt bij mij Sub etenvandaag2() is macro naam [L1] positie waar =vandaag() moet staan