Zelleninhalt sortieren

[Lutz Fricke]

Eine Datei ohne Daten macht jetzt nicht wirklich Sinn...
Du hast doch bestimmt eine Datei, die zum Teil ausgefüllt ist und in der Dein Code laufen sollte.

[MisterA]

Hallo Lutz,

die Daten werden ja per rechtsklick ins Auftrags Feld händisch erzeugt.
Habe mal eine Zelle befüllt, und man sieht, das mit dem Datum klappt mit der Zeit nicht.


Gruß

[Lutz Fricke]

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