Datum und Zeit extrahieren

[rldrake]

hallo,
ich benutze Excel 2013 und habe folgende Problemstellung:
Aus zwei Zellen soll ich je eine Datum- und eine Zeitzelle extrahieren und formatieren.

1. Ursprung der beiden Zellen hat die gleiche Schreibweise  2017-02-09-140250 und ist textformatiert
2. Die Datumzelle soll dann so aussehen  02.09.2017
3. Die Zeitzelle soll dann so aussehen  14:25

Eine einzelne Zelle zu ändern ist kein Problem für mich. Aber diese "Neuformatierung" soll in der Datumspalte automatisch über 30 Zellen funktionieren, ebenso dasselbe für die Zeitspalte. Ist da ein Makro angesagt?

Die Ursprungsspalten können beliebige Datum/Zeitwerte haben.

Gut wäre es, wenn die "Neuformatierung" in denselben Zellen (Ursprungszellen) erscheint, aber es wäre auch kein Problem, wenn sie in zwei neuen Spalten daneben erscheint.
 
Ich freue mich auch eure Hilfe, danke

[shift-del]

Hallo

Code:

=--LINKS(A1;10)
=--ERSETZEN(ERSETZEN(RECHTS(A1;6);5;0;":");3;0;":")

[lupo1]

=--TEXT(RECHTS(A1;6);"00\:00\:00") ginge auch statt

=--ERSETZEN(ERSETZEN(RECHTS(A1;6);5;0;":");3;0;":")

[rldrake]

danke shift-del und lupo1,
das ist schon mal ein guter Start und werde mich auch mit diesen Befehlen mehr auseinandersetzen, aber etwas drängt die Zeit.
Nun zum Problem, habe die Antworten ausprobiert und sie geben auch die Zeit. Aber leider nicht ganz richtig, die richtige Zeit müsste 14:25 lauten und nicht 14:02.
Könnt ihr da bitte noch mal weiterhelfen?
Wenn das richtig funktioniert, wie mache ich es dann für 30 Zellen in einer Spalte?
Danke und schönen Tag

[Rabe]

Hi,

Nun zum Problem, habe die Antworten ausprobiert und sie geben auch die Zeit. Aber leider nicht ganz richtig, die richtige Zeit müsste 14:25 lauten und nicht 14:02.
Könnt ihr da bitte noch mal weiterhelfen?
Wenn das richtig funktioniert, wie mache ich es dann für 30 Zellen in einer Spalte?

da hast DU einen Denkfehler:
2017-02-09-140250

ist 14:02 und 50 Sek.
und nicht 14:25

Einfach die Formeln 30 Zeilen runterziehen.

[rldrake]

na klar, danke fürs Aufwecken
und danke für die schnelle Hilfe hier !!!
Ich denke, jetzt komme ich selbst weiter

[snb]

Ein UDF:

Code:

Function F_snb(c00)
   F_snb = CDate(Format(Replace(c00, ".", ""), "@@@@-@@-@@ @@:@@:@@"))
End Function

[lupo1]

Mit einem Minus statt eines Punktes geht es, snb ;)