Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
13.01.2023, 17:59
(Dieser Beitrag wurde zuletzt bearbeitet: 13.01.2023, 18:00 von RPP63.)
Moin!
Wer schon immer mal wissen wollte, an welchen Daten sich der böse Tag in diesem Jahrhundert befindet, braucht kein VBA mehr, sondern spillt mit folgender Formel die Daten:
=LET(
Beginn;DATUM(2000;1;1);Jahre;100;
Zeitraum;SEQUENZ(365,2425*Jahre;;Beginn);
FILTER(Zeitraum;(TAG(Zeitraum)=13)*(WOCHENTAG(Zeitraum;2)=5)))
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:1 Nutzer sagt Danke an RPP63 für diesen Beitrag 28
• ws-53
Registriert seit: 12.04.2014
Version(en): Office 365
Moin Ralf
Nett.
Wenn ich das Startdatum auf meinen Geburtstag setze dann habe ich heute Freitag den 13. zum 100. Mal erlebt.
Wir sehen uns!
... Detlef
Meine Beiträge können Ironie oder Sarkasmus enthalten.
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
13.01.2023, 18:38
(Dieser Beitrag wurde zuletzt bearbeitet: 13.01.2023, 18:45 von RPP63.)
Ich hätte jetzt nicht gedacht, dass Du schon soooo alt bist! 
Ernsthaft:
Ich sehe da keine Fehler-Ursache.
Gerade erst geschnallt!
Ich eruiere kurz …
Hah!
Ich habe 103!
Du Jungspund mit Baujahr 64!
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 09.01.2022
Version(en): Microsoft 365
Nette Spielerei und ein schönes Beispiel für LET!
Registriert seit: 12.04.2014
Version(en): Office 365
(13.01.2023, 18:38)RPP63 schrieb: Hah!
Ich habe 103!
Damit liegt dein Geburtsdatum im Zeitraum 13.07.62 bis 13.09.63.
Wir sehen uns!
... Detlef
Meine Beiträge können Ironie oder Sarkasmus enthalten.
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hej,
ich habe 111
(Prost
)
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Nö!
Wenn, dann doch eher im Zeitraum vom 1
4.07.1962 bis …
Ich habe übrigens ein KFZ-Kennzeichen für mein nächstes Auto reserviert:
Stadt-RP 3563
war noch frei!
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Zitat:Stadt-RP 3563
Wie das?
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 21.12.2017
Version(en): MS 365 Family (6 User x 5 Geräte für jeden) Insider-Beta
13.01.2023, 23:10
(Dieser Beitrag wurde zuletzt bearbeitet: 13.01.2023, 23:15 von LCohen.)
Als es noch keinen SPILL-FILTER gab,
musste man ein wenig mehr rechnen (mit dem Vorteil, theoretisch auch 1.000.000 Folgedatümer bilden zu können, weil kein Wegfilterbedarf bestand):
C2: Ausgangsdatum
C3: Folgedatümer mit feststehendem Datumstag und -wochentag des Ausgangsdatums
=C2+(CODE(TEIL(WENN(TAG(C2)=TAG(C2+(CODE(TEIL(
"J'F0FF`J0=J=J'F0FJ`J0=J=J'F0FJ`J0=J=J'm0FJmJ0JJd";
MONAT(C2)+MAX(TAG(C2)-28;)*12;1))-35)*7);
"J'F0FF`J0=J=J'F0FJ`J0=J=J'F0FJ`J0=J=J'm0FJmJ0JJd";
"0=F0FFS`0S=00=F0FFS`0S=00=F0F`S`0S=0==`0F`z`0`=z");
MONAT(C2)+MAX(TAG(C2)-28;)*12;1))-35)*7
-UND(TAG(C2+{0;366})=31)*(MONAT(C2)=12)*518
... im folgenden umgemünzt auf eine Spillformel:
C3#:
=LET(b;C2;n;103;
x;"J'F0FF`J0=J=J'F0FJ`J0=J=J'F0FJ`J0=J=J'm0FJmJ0JJd";
SCAN(b;SEQUENZ(n);LAMBDA(a;c;
a+(CODE(TEIL(WENN(TAG(a)=TAG(a+(CODE(TEIL(x;
MONAT(a)+MAX(TAG(a)-28;)*12;1))-35)*7);x;
"0=F0FFS`0S=00=F0FFS`0S=00=F0F`S`0S=0==`0F`z`0`=z");
MONAT(a)+MAX(TAG(a)-28;)*12;1))-35)*7
-UND(TAG(a+{0;366})=31)*(MONAT(a)=12)*518)))
Registriert seit: 28.05.2014
Version(en): 2013 / 2016
(13.01.2023, 18:38)RPP63 schrieb:
Hah!
Ich habe 103!
Du Jungspund mit Baujahr 64!
… nun ja, ich überbiete:
135!
Beste Grüße
Günther
Excel-ist-sexy.de …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
