Clever-Excel-Forum

Normale Version: Datumsformate ändern
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Liebe Alle,

wie kann ich bei einzelnen Zellen im Excel (2013) Datumsformate ändern von zB:

22-MAY-2018 auf 22.05.2018

Bin schon recht verzweifelt, weil es sich um unendlich viele Zellen handelt und ich alles händisch ändern muss.

Vielen lieben Dank für eure Hilfe!

Liebe Grüße,
WhiteLily
Hallo,

Zitat:wie kann ich bei einzelnen Zellen im Excel (2013) Datumsformate ändern von zB:

Format --> Zellen --> Benutzerdefiniert
Hi White Lily,

ich gehe davon aus, dass die Textdaten irgendwo innerhalb einer Spalte sind. Dann würde ich daneben eine Hilfsspalte einfügen und irgendwo außerhalb des Sichtbereichs deiner Tabelle eine kleine Hilfstabelle:

Arbeitsblatt mit dem Namen 'Tabelle3'
ABCDE
122-MAY-201822.05.2018jan01
216-APR-201742841feb02
3mar03
4apr04
5may05
6jun06
7jul07
8aug08
9sep09
10oct10
11nov11
12dec12

ZelleFormatWert
B1TT.MM.JJJJ22.05.2018
E1001
E2002
E3003
E4004
E5005
E6006
E7007
E8008
E9009
E100010
E110011
E120012

ZelleFormel
B1=WECHSELN(A1;TEIL(A1;4;3);SVERWEIS(TEIL(A1;4;3);$D$1:$E$12;2;0))*1
B2=WECHSELN(A2;TEIL(A2;4;3);SVERWEIS(TEIL(A2;4;3);$D$1:$E$12;2;0))*1
Verwendete Systemkomponenten: [Windows (32-bit) NT 10.00] MS Excel 2016
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg
Hallo,

ohne Hilfsspalte könntest du es mal so versuchen:

=--WECHSELN(WECHSELN(WECHSELN(WECHSELN(A1;"Mar";3);"May";5);"Oct";10);"Dec";12)
Moin!
Da Günther alias GMG-CC hier momentan eine Auszeit nimmt, springe ich mal in die Bresche:
So etwas macht PowerQuery ohne eine einzelne Formel … Wink)

Gruß Ralf
Code:
sub M_snb()
   columns(1).replace "-MAY-",".05.",2
End Sub
Da hat sich Peter aber mehr Gedanken als Du gemacht, snb! Wink
Wenn die TE allerdings ein englisches Excel hat, stehen wir alle im kurzen Hemd.  :19:
(15.06.2018, 11:35)RPP63 schrieb: [ -> ]Moin!
...
So etwas macht PowerQuery ohne eine einzelne Formel … Wink)

Gruß Ralf

Und das in nicht mal 15 sec. ...
Noch immer der alte Rechner ?
:19:
(bitte nicht nachmachen)
Sub x()
  For sn = 1 To 12
    Columns(1).Replace Application.GetCustomListContents(3)(sn), sn
  Next
End Sub