Office: Letzter Arbeitstag im Quartal

Liebe Forenmitglieder,

seit zwei Tagen tüftel und google ich mich durch die Welt und komme auf keine Lösung.
Dabei kann es doch nicht so schwer sein, den letzten Arbeitstag eines Quartals per
Formel zu ermitteln? Oder doch?
Ich habe in B2 bis B367 das Datum stehen und möchte nur, wenn 30.06.2024 auf den
Sonntag fällt, dass mir der 28.06.2024 (Fr.) ausgegeben wird. bzw. will ich den eigentlich
dann bedingt formatieren.
Ich habe schon mit Arbeitstag, Wochentag usw. in verschiedensten Kombinationen getüftelt,
bekomms aber nicht auf die Kette.

Das Quartalsende ermittel ich durch die Formel:
=DATUM(JAHR(B2);WAHL(AUFRUNDEN(MONAT(B2)/3;0);4;7;10;13);0)
was ja auch super funktioniert. Nur eben nicht im Zusammenspiel, wenn mal so ein
Quartalsende auf n Samstag oder Sonntag fällt.

Lieben Dank für Eure Ideen und Eure Zeit vorab,
Thomas

PS: Ich hänge Euch mal das "Grundgerüst" an :)

 

Hallo,

=WENN(WOCHENTAG(H2;2)>5;ARBEITSTAG.INTL(H2;-1;1);H2)

 

Hallo Thomas,

s. Mappe

Gruß Sigi

 

Hi,
ohne Spalte H

Code:

=ARBEITSTAG.INTL(DATUM(JAHR(B2);MONAT(B2)+REST(3-MONAT(B2);3)+1;1);-1;;Tabelle2!$A$3:$A$15)

 

Moin!
Die letzten Arbeitstage eines Quartals ermittele ich mittels
=ARBEITSTAG(DATUM(2024;SEQUENZ(4;;4;3);1);-1)
Die einzigen Feiertage, die "dazwischenfunken" können, sind Karfreitag und Ostermontag.
Die sollte man als drittes Argument angeben.

Gruß Ralf

 

Hallo Exl121150, hallo Sigi.21, hallo BoskoBiati und hallo RPP63_neu,

gaaaanz lieben Dank an Euch. Manchmal kommt man sich einfach nur doof vor,
wenn man dann die Lösung(en) sieht.
Ich werde am Wochenende ausprobieren, und sehen, wie ich am Besten zurecht
komme und melde mich dann nochmals.

Wünsche Euch ein super schönes und erholsames Wochenende, bevor es wieder
in die neue Woche geht. Alles Gute Euch allen!

Thomas

 

Hallo
Oder als Alternative die Formel von RPP63_neu umgewandelt als PQ Version so.

Code:

let
    Startdaten = List.Transform({1..4}, each #date(2024, _ * 3, 1))
in
    Table.FromList(List.Transform(Startdaten, each let in if Date.DayOfWeek(Date.EndOfMonth(_), Day.Monday) = 5 then Date.AddDays
    (Date.EndOfMonth(_), -1) else if Date.DayOfWeek(Date.EndOfMonth(_), Day.Monday) = 6 then Date.AddDays(Date.EndOfMonth(_), -2)
    else Date.EndOfMonth(_)), Splitter.SplitByNothing(), {"Letzter Arbeitstag"})

 

Moin allerseits,

nachdem das Thema ein spannendes ist und RPP mit seinem Hinweis auf die Hasenparty-bezogenen Feiertage noch eine weitere Herausforderung gestellt hat, habe ich mich der Sache mal VBAstelnd genähert, ergänzt durch zwei kleine Features:
1. wird nicht nur das Datum, sondern auch der Wochentag des Quartalsletzten errechnet
2. auch der nächste Quartalserste darf entsprechend mitspielen
3. werden natürlich die unvermeidlichen Hasen- und Popenparties berücksichtigt. Wobei letztere den einzig beteiligten gesetzlichen Feiertag Neujahr meint.

Den Code gibt's hier

Schöne Grüße

 

365er Samstags-Spielerei:

	A	B	C	D	E	F
1	Quartal	erster AT/Q in 2024	letzter AT/Q in 2024		FT
2	Q I	Di 02.01.	Do 28.03.		NJ	Mo 01.01.
3	Q II	Di 02.04.	Fr 28.06.		KF	Fr 29.03.
4	Q III	Mo 01.07.	Mo 30.09.		OM	Mo 01.04.
5	Q IV	Di 01.10.	Di 31.12.

Zelle	Format	Wert
B1	"erster AT/Q in "0	2024
B2	TTT TT.MM.	02.01.2024

Zelle	Formel
C1	="letzter AT/Q in "&B1
A2	="Q "&RÖMISCH(SEQUENZ(4))
B2	=ARBEITSTAG(DATUM(B1;SEQUENZ(4;;;3);0);1;F2#)
C2	=ARBEITSTAG(DATUM(B1;SEQUENZ(4;;4;3);1);-1;F2#)
F2	=VSTAPELN(DATUM(B1;1;1);RUNDEN((TAG(MINUTE(B1/38)/2+55)&".4."&B1)/7;0)*7-6+{-2;1})

 

Moin Ralf,
sehr beeindruckt von Deiner extrem reduzierten Hasenfestformel, frage ich mal neugierig nach: was macht der Teil Runden...
und ganz besonders, was die Minute? Mein Versuch, das in die bekannte Gauss-Formel einzuordnen, scheitert.
Schöne Grüße