Hallo zusammen,
wer hilft mir bitte?
ich benötige eine Formel, mit der ich die Monatstage jeweils 5 x untereinander schreiben kann. Also 5 x 1.1., 5 x 2.1., 5 x 3.1. usw. bis zum jeweils Monatsletzten.
In VBA:
Code:
Sub M_snb()
[A1:A155] = [index(date(2023,1,int((row(1:155)-1)/5+1)),)]
End Sub
oder flexibeler:
Code:
Sub M_snb()
[A1:A155] = [index(date(year(today()),month(today()),int((row(1:155)-1)/5+1)),)]
End Sub
Moin Günther!
Da Du ja eine Formel wolltest:
=DATUM(2023;1;SEQUENZ(31*5;;;1/5))
Gruß Ralf
Hi snb, hi Ralf,
ich vergaß leider zu schreiben, dass ich das für einen Bekannten brauche, der nur mit XL2013 arbeitet und keine Makros wünscht. Aufgrund seines Alters (knapp 90) hängt er ziemlich an Althergebrachtem fest; will aber Formeln nachvollziehen können.
Dann halt zum Ziehen.
Ist aber das gleiche Prinzip, denn die Funktion Datum erwartet als Argumente Integer:
=DATUM(2023;1;ZEILE(X5)/5)
Falls
dreifache Wiederholung gewünscht, ist der Startwert ZEILE(X
3)/
3
| E |
| 1 | |
| 2 | |
| 3 | |
| 4 | 01.01.2023 |
| 5 | 01.01.2023 |
| 6 | 01.01.2023 |
| 7 | 01.01.2023 |
| 8 | 01.01.2023 |
| 9 | 02.01.2023 |
| 10 | 02.01.2023 |
| 11 | 02.01.2023 |
| 12 | 02.01.2023 |
| 13 | 02.01.2023 |
| 14 | 03.01.2023 |
| 15 | 03.01.2023 |
| 16 | 03.01.2023 |
| 17 | 03.01.2023 |
| 18 | 03.01.2023 |
| 19 | 04.01.2023 |
| 20 | 04.01.2023 |
| 21 | 04.01.2023 |
| Zelle | Formel |
| E4 | =DATUM(2023;1;ZEILE(X5)/5) |
Gruß Ralf
Hallo
Als alternative mit PQ bei angenommenen 31 Tagen.
@ Ralf,
vielen Dank, hat gepasst. Anpassungen habe ich bereits vorgenommen.
@PIVPQ,
auch dir vielen Dank für die interessante PQ-Lösung. Hab' sie mir in meine Vorlagen aufgenommen; für meinen Bekannten ist die Lösung von Ralf allerdings besser nachzuvollziehen.
Wünsche euch noch einen schönen (Rest)Feiertag.
Es gibt auch noch die Super-Simpel-Lösung:
A1[:A5]: 1.1.23
A6[:A155]: =A1+1
Hi LCohen,
vielen Dank. Warum einfach, wenn's auch kompliziert geht?
