Suche nach "erzeugtem" Datum

Question

Hallo,

ich habe in einer Tabellenspalte Datumsangaben, die jeweils durch eine Formel berechnet werden: Spalteneintrag in der Zeile darüber +1. Jetzt will ich mit dem find-Befehl nach einem solchen Datum suchen, was jedoch nicht funktioniert. Find findet das Datum nur, wenn die explizit dort eingegeben wurde, nicht wenn da eine Formel steht.

Hat jemand einen Tipp wie das geht oder muss ich etwa über ein Schleife suchen?

Danke und Gruß A.

Answer 1

Hallo A.

Find hat generell Probleme Datumsangaben zu finden. Hier kommt es oft auch auf das richtige Zahlenformat an, damit man überhaupt was findet. Zum ermitteln z.B. einer bestimmten Zeile, in der das Datum steht, verwende ich meist Application.Match. Das klappt auch in deinem Fall wunderbar.

Sub Datum_Finden()
  Dim finddate As Date, daterow As Variant, rng As Range
  finddate = DateSerial(2025, 1, 9)
  
  daterow = Application.Match(CDbl(finddate), Range("B:B"), 0)
  If Not IsError(daterow) Then Set rng = Cells(daterow, 2)
End Sub

Gruß Mr. K.

Answer 2

Hallo Mr.K

prima, das passt wunderbar! Da werde ich wohl auch andere Codes danach umstellen!

Vielen Dank für die schnelle und gute Antwort!

VG A.