Hallo MisterA,
entschuldige bitte die späte Antwort, war im Urlaub und dann war etwas viel los...
Die Lösug ist
Code:
If CDate(Mid(Ar(Wert1), 2, 10)) + CDate(Mid(Ar(Wert1), 15, 8)) < CDate(Mid(Ar(Wert2), 2, 10)) + CDate(Mid(Ar(Wert2), 15, 8)) Then
oder auch
Code:
If CDate(Mid(Ar(Wert1), 2, 10) & " " & Mid(Ar(Wert1), 15, 8)) < CDate(Mid(Ar(Wert2), 2, 10) & " " & Mid(Ar(Wert2), 15, 8)) Then
Dein Post am 27.10. 8:03 war etwas irreführend, da der Code so ja gar nicht gelaufen ist sondern in einen Fehler gelaufen ist.
Daher mit CDate(Mid(Ar(Wert1), 2, 10)) das Datum ermitteln, mit CDate(Mid(Ar(Wert1), 15, 8)) die Uhrzeit ermitteln und beides addieren um den Wert zu erhalten nach dem sortiert werden soll.
oder
Datum und Uhrzeit ermittel, daraus durch Trennung mit einem Leerzeichen einen für Excel lesbaren Zeitstempel erzeugen und den mit CDate umwandeln.
Gruß,
Lutz