Datumsformate ändern

[WhiteLily]

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

[Käpt'n Blaubär]

Hallo,

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

Format --> Zellen --> Benutzerdefiniert

[WillWissen]

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'
	A	B	C	D	E
1	22-MAY-2018	22.05.2018		jan	01
2	16-APR-2017	42841		feb	02
3				mar	03
4				apr	04
5				may	05
6				jun	06
7				jul	07
8				aug	08
9				sep	09
10				oct	10
11				nov	11
12				dec	12

Zelle	Format	Wert
B1	TT.MM.JJJJ	22.05.2018
E1	00	1
E2	00	2
E3	00	3
E4	00	4
E5	00	5
E6	00	6
E7	00	7
E8	00	8
E9	00	9
E10	00	10
E11	00	11
E12	00	12

Zelle	Formel
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

[Peter]

Hallo,

ohne Hilfsspalte könntest du es mal so versuchen:

=--WECHSELN(WECHSELN(WECHSELN(WECHSELN(A1;"Mar";3);"May";5);"Oct";10);"Dec";12)

[RPP63]

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 … )

Gruß Ralf

[snb]

Code:

sub M_snb()
   columns(1).replace "-MAY-",".05.",2
End Sub

[RPP63]

Da hat sich Peter aber mehr Gedanken als Du gemacht, snb!
Wenn die TE allerdings ein englisches Excel hat, stehen wir alle im kurzen Hemd. 

[Jockel]

Moin!
...
So etwas macht PowerQuery ohne eine einzelne Formel … )

Gruß Ralf

Und das in nicht mal 15 sec. ...

[snb]

Noch immer der alte Rechner ?

[RPP63]

(bitte nicht nachmachen)

Sub x()
  For sn = 1 To 12
    Columns(1).Replace Application.GetCustomListContents(3)(sn), sn
  Next
End Sub