Zellformatierung: aus 12.02.2018 wird 12.FE.18 möglich?

[XLS-Olli]

Hallo,
 
ich möchte Datumwerte aus Excel in ein anderes Programm übernehmen. Die Logik, nach der die Monate Jan.-Dez. dargestellt werden, ist in diesem Programm die folgende:
 
Januar = JA
Februar = FE
März = MR
April = AP
Mai = MA
Juni = JN
Juli = JL
August = AU
September = SE
Oktober = OK
November = NO
Dezember = DE
 
Der 12.02.2018 kann z.B. nur als 12.FE.18 verarbeitet werden. Meine Frage ist jetzt: Kann man über die Zellformatierung vorgeben, dass die Datumwerte automatisch nach dem obigen Schema umgewandelt werden (Eingabe 30.05.2018 wird automatisch zu 30.MA.18)?
 
Alternativ müsste ich eine Lösung mit SVerweis o.ä. basteln.
 
Vielen Dank im Voraus!! :19:

[Phi.VBA]

@Olli

in VBA gibt es die Funktion "Switch". Bei nur 12 Möglichkeiten kann man die einzeln eingeben.

Die Suchmaschine deiner Wahl hilft.

[Jockel]

Hallo, per Formel ginge das hier..:

Arbeitsblatt mit dem Namen 'Tabelle3'
	A	B
1	12.02.2018	12.FE.18
2	30.05.2018	30.MA.18

Zelle	Formel
B1	=TAG(A1)&"."&GROSS(LINKS(TEXT(A1;"MMM");2))&"."&TEXT(A1;"JJ")

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[XLS-Olli]

Hat sehr geholfen, vielen Dank an Euch!!

[Jockel]

Hat sehr geholfen, vielen Dank an Euch!!

Hallo, bei der Formellösung müßte man noch nachbessern. Stichwort: Juni, Juli und der Tage wegen wenn sie einstellig sind...

[Elex]

Hi

Jörgs Idee mal erweitert.

=TEXT(TAG(A1);"TT")&"."&WAHL(MONAT(A1);"JA";"FE";"MR";"AP";"MA";"JN";"JL";"AU";"SE";"OK";"NO";"DE")&"."&TEXT(A1;"JJ")

[LCohen]

Und Elex ein wenig verkürzt:

=WECHSELN(GROSS(TEXT(A2;"TT.MMM.JJ"));TEIL("NBZRIUUGPTVZ";MONAT(A2);1);)