Mein Name ist Heiko und ich baue mir grad ein Trading Journal was mir alle Trades nach Datum sortiert.
Das funktioniert mit der Suche nach der ersten leeren Zeile
Dim intErsteLeereZeile As Long
'Fügt die eingetragenen Werte ins Tabellenblatt und schließt das Formular frmTrade
"Rows.Count, 2" ist die Reihe B da in A(1)
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
Jetzt hab ich einen Trade ausversehen nicht eingetragen der zwischen
09.01.2017 12:29 und
09.01.2017 16:17 liegt (z.B. 09.01.2017 15:00)
Me.txtOpenTime.Value = CDate(Format(Now, "dd.mm.yy hh:mm"))
Wie bekomme ich das zwischen den Daten?
Meine Idee pseudocode:
wenn txtOpenTime.Value > als der Wert in Tabelle1!A1:A200 && Then
Zeile einfügen und Werte einfügen
else
intErsteLeereZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1
Dann müste ich doch genau zwischen 09.01.2017 12:29 und 09.01.2017 16:17 die Daten einfügen können?
Wie kann ich das realisieren?
txtOpenTime
06.01.2017 14:41
06.01.2017 14:47
06.01.2017 14:59
09.01.2017 12:29
09.01.2017 16:17
09.01.2017 16:17
10.01.2017 15:27
Danke für Deine Zeit
fatlemming