habe ein Problem bei der Suche nach einem Datum. Dieses steht als Datum in einer Zelle. Der Suchbereich enthält Datumsangaben in verscheidener Form:
als Datum, wie auch in der Datumszelle oder
als Teil eines Textes.
Wie sieht da die Suche am besten aus? Als String gehts irgendwie nicht. Es soll, wenns geht, nur eine Suche sein.
https://www.herber.de/bbs/user/140540.xlsm
Musterdatei anbei, Code is drinnen, und hier auch noch als Vorschau:
Sub Datumfinden()
Dim Datum
Dim Zelle As Range, Bereich As Range
Set Bereich = Range("C2").CurrentRegion 'Suchbereich festlegen
Datum = Range("A3")
Set Zelle = Bereich.Find(Datum, LookIn:=xlValues, lookat:=xlPart)
If Not Zelle Is Nothing Then Debug.Print Zelle.Address
End Sub
Gruss, Michael