Office: find mit Datum

Hi,

wie gestagt, ist .Find manchmal eigenwillig, wenn es um Formatierte Daten geht.


So wird bei mir das nach deinen Vorgaben formatierte Datum gefunden.


Sub findDate()
Dim rngFind As Range

With Sheets("A&E Report")
Set rngFind = .Range("E15:E34").Find(What:=DateValue("11.11.2008"), _
After:=.Range("E34"), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
End With

If rngFind Is Nothing Then
MsgBox "Nichts gefunden"
Else
Debug.Print rngFind
End If

Set rngFind = Nothing
End Sub

 

Hallo Sepp,

jetzt funktioniert es. Es lag an der Funktion; während du es als Sub angelegt hast. Warum Excel es beim Sub macht und nicht als Teil einer Funktion ausführt ist mir zwar noch nicht klar; aber hauptsache es läuft. *tongue.gif*

Herzlichen Dank nochmal für Deine klasse Hilfe

Grüße Hilfsente