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 |
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
(09.07.2020, 20:01)luna101 schrieb: [ -> ]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.
Moin
Hier mal meine PQ-Lösung.
Wenn nur das Jahr angegeben ist dann wird immer der 01.01. d.J. genommen.
(09.07.2020, 18:20)Jockel schrieb: [ -> ]Sorry Martin... hier gibst du XL2020 an....
Mein Fehler, nicht XL2020 sondern XL2010 ...
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
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.
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
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
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'.