Hallo Zusammen,
ich hänge an einer Stelle wo ich nicht weiterkomme, ggf hat jemand eine gute Idee?
Ich habe in einer Spalte A eine Kombination aus Datum + Zeit geschrieben:
Dim Datum as Date
EintragInListe = CDate(datum & " " & entry.zeit) 'entry.zeit ist vom datentype Date
Ergibt:
01.06.2017 06:05
01.06.2017 06:06
01.06.2017 06:07
01.06.2017 06:08
etc
Jetzt will ich wissen ob z.B. der Dateneintrag: 01.06.2017 06:07 vorhanden ist:
Set Daten= Workbooks("TestFile").Worksheets("Daten")
SuchWert = CDate(datum & " " & entry.zeit) 'gleiches Format wie beim schreiben
With Daten.Range("A1:A99999")
Set c = .Find(SuchWert, LookIn:=xlValues)
If c Is Nothing Then
msgbox ("Nicht gefunden")
Else
msgbox ("Gefunden")
End If
End With
Klappt leider nicht :(
Danke für Eure Hilfe
Gruß Georg