Datum UK/US->DE

[Jockel]

Sorry Martin, ich bin raus. Zum einen schreibst du was von csv-Dateien. Dann im Nachbarforum EXCEL2013 hier gibst du XL2020 an. Und dann postetest du eine *.xlsm (offenbar mir Makros)


P.S.: So sähe eine mögliche Lösung mittels Power Query aus... ohne VBA (keine *.xlsm nötig und wenn die Daten aus eier *.csv kommen auch ohne rechte Tabelle. Natürlich könnte man die Monate auch noch formatieren.

Arbeitsblatt mit dem Namen 'Tabelle2'
	O	P	Q	R	S	T	U	V	W	X
2	Geburt	Hochzeit	Tod					Geburt	Hochzeit	Tod
3	30.01.1903	01.01.1930	04.01.1975					30 JAN 1903	1930	4 JAN 1975
4	06.05.1914	01.01.1942	07.04.1986					6 MAY 1914	1942	7 APR 1986
5	09.07.1905	01.01.1938	22.03.1957					9 JUL 1905	1938	22 MAR 1957
6	25.09.1933		08.01.2013					25 SEP 1933		8 JAN 2013
7	03.10.1866	13.11.1896						3 OCT 1866	13 NOV 1896
8		10.11.1894							10 NOV 1894
9		14.05.1892							14 MAY 1892
10	02.01.1880	04.05.1901	12.10.1961					2 JAN 1880	4 MAY 1901	12 OCT 1961
11		03.05.1912							3 MAY 1912
12	10.12.1890	01.05.1923	08.07.1960					10 DEC 1890	1 MAY 1923	8 JUL 1960
13		17.05.1912							17 MAY 1912
14
15	27.02.1891	04.04.1913	27.03.1963					27 FEB 1891	4 APR 1913	27 MAR 1963
16		12.11.1909							12 NOV 1909
17		02.02.1891							2 FEB 1891
18		23.02.1900							23 FEB 1900
19		08.05.1908							8 MAY 1908
20		28.05.1906							28 MAY 1906
21		06.02.1914							6 FEB 1914
22		22.05.1903							22 MAY 1903
23		27.04.1906							27 APR 1906
24		14.05.1920							14 MAY 1920
25		22.05.1920							22 MAY 1920

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

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

[luna101]

Hallo zusammen,
mit Power Query kenn ich mich nicht aus.
Es ist eine csv Datei in Excel importiert.
Daraus werden die Datum in die obige Tabelle eingefügt.
Wenn es keine andere Lösung gibt, werde ich so wie bisher weiterfahren.
Trotzdem danke für die Mühe
Gruss Martin

[Jockel]

Hallo zusammen,
...
Es ist eine csv Datei in Excel importiert.
....
Gruss Martin

Hi Martin, man sieht nicht, wie die Tabelle importiert wird. Außerdem sind nach wie vor die Versionsangaben  widersprüchlich, wenn du nicht mitmachen willst oder kannst... war's das von mir aus.

[shift-del]

Moin

Hier mal meine PQ-Lösung.
Wenn nur das Jahr angegeben ist dann wird immer der 01.01. d.J. genommen.

[Jockel]

Sorry Martin... hier gibst du XL2020 an.... 

Mein Fehler, nicht XL2020 sondern XL2010 ...

[luna101]

Hallo shift-del
danke für deine Mühe. Habe die Datei angeschaut sie scheint ebenfalls zu funktionieren, wobei auch hier
nicht nur die Jahreszahl steht sondern 01.01.Jahr. Das gleiche macht auch die Formel die ich erhalten habe,
hier wird das Jahr mit dem 02.07. ergänzt. Wie ich schon geschrieben habe, behersche ich PQ nicht und
suche deshalb eine andere Lösung, wo ich nicht nachträglich das Datum von Hand bereinigen muss,
eventuell kann man das Makro in der beigefügten Tabelle anpassen.
Mit freundlichen Grüssen  und :98:
Martin

[LCohen]

Hier nun die wiedergefundene Lösung von EarlFred im MSOF:

https://www.ms-office-forum.net/forum/sh...p?t=368457

Übrigens: Für Datümer nach dem Jahr 1573 (Beginn d. greg. Zeitrg.) bis zum 1.3.1900 nimmt man einfach 400 Jahre hinzu. Dann wird das Datum zu einem rechnenden Datum mit stimmendem Wochentag.

[luna101]

Hallo LCohen
danke für das Suchen und den Link zu EarlFred. Das ist für mich schon zu hohe Schule.   
Habe mit Matrixformeln noch nie etwas zu tun gehabt. Da würde mir nur eine Kompletlösung helfen,
was wiederum zuviel verlagt wäre. Sollte sich jedoch einer erbarmen würde ich mich trotzdem freuen.
Danke nochmals für deine Mühe und Gruss
Martin

[Oldiefan]

Hallo Martin!

=WENNFEHLER(--WECHSELN(WECHSELN(WECHSELN(WECHSELN(GROSS(WENN(LÄNGE(X9)=4;"2.7."&(X9+400);WECHSELN(X9;RECHTS(X9;4);RECHTS(X9;4)+400)));"AR";"RZ");"Y";"I");"EC";"EZ");"C";"K");)

Das liegt am fettgeschriebenen Teil der Formel. Schreib da einfach nur X9+400, dann klappt das so, wie du möchtest.

Liebe Grüße
Alex

[snb]

Einfach so:

Code:

Sub M_snb()
    Tabelle2.Columns(24).Resize(, 2).Copy Tabelle2.Cells(1, 41)

    For j = 1 To 12
      Tabelle2.Columns(41).Resize(, 2).Replace " " & Application.GetCustomListContents(3)(j) & " ", Format(j, "\.00\.")
    Next
End Sub

Lösche 'Option Explicit'.