Zoeken

[Oude leerling]

Geacht forum,

Op blad "Datum" staat een datum welke ik wil vinden op blad"Rooster"
Nu doet het vreemde zich voor.

Tot en met de datum 3-10-2019 vind hij hem maar alle datums daarna niet meer.
Dus als ik op blad Datum 10-10-2019 invul krijg ik een foutmelding 91

Weet een van de forumleden wat er fout gaat??

Vriendelijke groet Jaap

Partij = Blad2.Columns(11).Find(Blad1.[A1], LookIn:=xlValues).Offset(0, -1)

 

[SjonR]

probeer het eens met xlFormulas:

Partij = Blad2.Columns(11).Find(Blad1.[A1], LookIn:=[COLOR="#FF0000"]xlFormulas[/COLOR]).Offset(0, -1)

 

[VenA]

Datums zijn en blijven vervelende dingen in Excel.

Andere methode. Deze gaat altijd goed.

Sub VenA()
  r = Application.Match(CDbl(Blad1.Cells(1)), Blad2.Columns(11), 0)
  If IsNumeric(r) Then MsgBox "Dat is partij " & Blad2.Cells(r, 10) Else MsgBox "Datum niet gevonden"
End Sub

 

[Oude leerling]

SjonR en VenA,

Jullie zijn allebei grandioos.
xlFormulas dat ik daar zelf niet op kom . Het werkt prima!

VenA , je laat zoeken naat het getal wat achter de datum zit.
Ik snap het.
Beide bedankt voor de snelle reactie.

Vriendelijke groet , Jaap