Hallo Marian,

die von mir am 11.10.2025 hier eingereichte VBA-Funktion in diesem VBA-Forum löst das Problem kurz und knapp in Excel VBA..

Dein Excel-Formelungetüm ist wegen zahlreicher Redundanzen viel zu lang, 1221 Zeichen zumeist heiße Luft - wohl entstanden durch Re-Substitution aus den von Heiner Lichtenberg modifizierten Gauß-Formeln. "Am leichtesten" kannste also knicken. Die originalen Gauß-Formeln von vor 200 Jahren enthielten zusätzlich Fallunterscheidungen für Sonderfälle - deren Übersetzung nach Excel wäre noch raumgreifender.

Im 1900-Standard-Dateiformat funktioniert mit Jahreszahl in A2 (87 Zeichen lang) für 1900-9999
=7*DM((4&-A2)/7-REST(4*DM(68*DM(A2%%+468,215)-TAG(A2%/4)-11*REST(A2;19););4,13796);)+22

Sowohl im 1900- als auch im 1904-Dateiformat funktioniert mit Jahreszahl in A2 (103 Zeichen lang) für 1900/1904-9999
=7*DM((4&-A2)/7-TAG(8)/7+REST(44*REST(A2;19)-2-4*DM(LINKS(A2;2)/1,472-KÜRZEN(A2%/4););4,13796);)+TAG(1)

Beste Grüße, Frank