Office: (Office 2010) Datum suchen und Reihe ausgebene

Hallo zusammen,

ich habe da ein Test Sub der funktioniert, außer ich gebe ein Datum ein zum suchen, den String kann VBA irgendwie nicht (wegen den Punkten?) in der Suche ausgeben?

Sub test()
Call Sheets

Dim SucheObj As Object
Dim SucheStr As String

SucheStr = eintrag.Cells(1, 5)

With eintrag.Columns(1)
Set SucheObj = .Find(SucheStr, LookIn:=xlValues)
If Not SucheObj Is Nothing Then
eintrag.Cells(5, 5) = SucheObj.Row
End If
End With
End Sub

Danke & Gruss
Bst

 

Hi,

bei Datum musst du xlValues durch xlFormulas ersetzen

Bis später,
Karin

 

Danke für die schnelle Antwort Karin, aber leider besteht das Problem weiterhin.

Lg

 

Kann ich, ohne deine Mappe und die genauen Bedingungen zu kennen, nicht nachvollziehen.

Bis später,
Karin

 

Bin zur Zeit auf der Arbeit, und hier habe ich leider nur Intranet, daher kann ich es nicht Online stellen.

In der Suchzelle E1 steht 01.01.2017, als Datum formatiert.

In Spalte A stehen alle Daten von 01.01.217 - 31.12.1017, alle als Datum formatiert - gleich zu E1

Er soll also in A:A nach dem Datum suchen, dass in E1 angegeben wird.

 

Du hast die Variable SucheStr für die Datumssuche als Date deklariert oder als String?
Eventuell hilft .Find(CDate(SucheStr)... oder .Find(CDbl(SucheStr)...

Bis später,
Karin

 

Super Dank dir!! Find(CDate(SucheStr) hat geholfen :)