Datum suchen, Zeilennummer ausgeben
02.06.2018 20:56:38
Andy
ich habe einen Datensatz aus einer .csv gebildet. In der ersten Spalte ist Datum und Uhrzeit gelistet (27.04.2018 02:40:00). Die Spalte habe ich als Datum formatiert (Selection.NumberFormat = "dd/mm/yyyy hh:mm:ss").
Die Datumsspalte nutze ich im Weiteren als Quelle für eine Combobox "StartDate".
Ich benötige bei einer folgenden Operation die Zeilennummer zu dem ausgewählten Datum der Combobox "StartDate".
Folgender Code funktioniert nur mit dem im Code definierten testdatum (Code Zeile 9). Wenn ich das datum aus der Combobox datum = frmDiagram.StartDate beziehe wird nichts gefunden. Obwohl es ja da sein muss. Da es ja die Basis für die Combobox ist. Ich kann mir denken, dass es mit der Datumsformatierung zusammenhängt. Leider finde ich keine Lösung und benötige Hilfe. Vielen Dank und Grüße Andy
Sub Marko1()
'datum in salte suchen und Zeilennummer ausgeben
Dim datum As Date
Dim rng As Range
Dim asd As Long
datum = frmDiagram.StartDate
'datum = Format(CDate(datum), "dd.mm.yyyy hh:mm:ss")
'datum = "02.05.2018 00:40:00" testdatum
MsgBox datum
Set rng = Worksheets("wrk").Range("A1:A300").Find(datum)
If rng Is Nothing Then
MsgBox " nicht gefunden in Zeile:"
Else
asd = rng.row
MsgBox asd
End If
End Sub
Anzeige