Jeweils 5 Datenwiederholungen bis Monatsletzten

[WillWissen]

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.

[snb]

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

[RPP63]

Moin Günther!
Da Du ja eine Formel wolltest:
=DATUM(2023;1;SEQUENZ(31*5;;;1/5))

Gruß Ralf

[WillWissen]

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.

[RPP63]

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(X3)/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

[PIVPQ]

Hallo 

Als alternative mit PQ bei angenommenen 31 Tagen.

[WillWissen]

@ 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.

[LCohen]

Es gibt auch noch die Super-Simpel-Lösung:

A1[:A5]: 1.1.23
A6[:A155]: =A1+1

[WillWissen]

Hi LCohen,

vielen Dank. Warum einfach, wenn's auch kompliziert geht?