Gauss'sche 'Osterformel' in Excel gesucht

Computer: Software & Programmierung Office Software
#1

Hallo, Ihr Formel-Spezialisten,

ich hätte gerne die Gauss’sche Formel als Formel für eine Excel-Tabelle.

Hat einer von Euch Zeit und Lust, sie mir zu basteln, sodaß ich in einem Feld das Jahr eintippe und im Feld daneben das Datum rauskommt?
Ziel ist eine Tabelle mit den Daten der letzten 100 Jahre.

Hier ist der Link:
http://www.kr8.de/osterngaussche_formel.htm

Danke im voraus.

Gruß Gudrun

Häufigkeitsverteilung Kar-/Osterdatum
#2

ich hätte gerne die Gauss’sche Formel als Formel für eine
Excel-Tabelle.
Hat einer von Euch Zeit und Lust, sie mir zu basteln, sodaß
ich in einem Feld das Jahr eintippe und im Feld daneben das
Datum rauskommt?
Ziel ist eine Tabelle mit den Daten der letzten 100 Jahre.

Hi Gudrun,
langt dir eine Formel die zwischen 532 (Ostertafeln des Dyonysius Exiguus) und 8702 gilt? *kicher*
Schau mal hier: http://www.excelformeln.de/formeln.html?welcher=3
Müßte deiner Anfrage entsprechen.
Gruß
Reinhard
ps: was ich dort auch gut finde ist:
Warum eigentlich Christus? Der hieß doch Jesus. Christus ist nur ein Zusatz zu dem Namen Jesus. Jesus Christus heißt also: Jesus, der Gesalbte.
Wir haben also u.a. eine „gesalbte“ Volkspartei.
Gesalbt oder geschmiert - wo ist da schon der Unterschied …
(von irgendeinem Heiner)

war das Geissler *grien*

#3

Hi Reinhard,

danke Dir, das war’s, was ich suchte. Prima!

langt dir eine Formel die zwischen 532 (Ostertafeln des
Dyonysius Exiguus) und 8702 gilt? *kicher*
Schau mal hier:
http://www.excelformeln.de/formeln.html?welcher=3

Ich suche ja nur die letzten 100 Jahre, dafür reichte eigentlich die „lange“ Formel unter 1. aus, aber jetzt hast Du mich auf den Geschmack gebracht, allerdings gefallen mir bei der „Gauß perfekt“-Formel vier Felder und die Ausgabe als Text nicht so ganz.

Geht das auch in einem Feld und Ergebnis im Datumformat? *kicher zurück*

ps: was ich dort auch gut finde ist:
Warum eigentlich Christus? Der hieß doch Jesus. Christus ist
nur ein Zusatz zu dem Namen Jesus. Jesus Christus heißt also:
Jesus, der Gesalbte.

Eine höchst interessante Frage. Wäre was für’s Reli-Brett. Oder?
Ich sage mal ganz lapidar: Chr. läßt sich besser abkürzen als Jes. :wink:

Wir haben also u.a. eine „gesalbte“ Volkspartei.
Gesalbt oder geschmiert - wo ist da schon der Unterschied …
(von irgendeinem Heiner)
war das Geissler *grien*

Eher nicht von diesem Heiner. :wink:

Gruß Gudrun

#4

Geht das auch in einem Feld und Ergebnis im Datumformat?

hallo Gudrun,
die meisten (>98%) Formeln dort kapier ich sowieso nicht, also kann ich leider die auch nicht umschreiben.
Sorry Lady :smile:
Gruß
Reinhard

#5

Hallo Gudrun,

Hi Reinhard,

danke Dir, das war’s, was ich suchte. Prima!

langt dir eine Formel die zwischen 532 (Ostertafeln des
Dyonysius Exiguus) und 8702 gilt? *kicher*
Schau mal hier:
http://www.excelformeln.de/formeln.html?welcher=3

Ich suche ja nur die letzten 100 Jahre, dafür reichte
eigentlich die „lange“ Formel unter 1. aus, aber jetzt hast Du
mich auf den Geschmack gebracht, allerdings gefallen mir bei
der „Gauß perfekt“-Formel vier Felder und die Ausgabe als Text
nicht so ganz.

Geht das auch in einem Feld und Ergebnis im Datumformat?

In einem Feld wird wohl nur mit einer benutzerdefinierten Funktion funktionieren, da die Formel in einer Zelle sonst ellenlang würde.
Umwandlung von Text in Datum funktioniert per Funktion DATWERT, aber nur solange ein Datum im Bereich des EXCEL-Gültigkeitsbereiches vorliegt.

Ich werde mich heute mal an die benutzerdefinierte Funktion machen, wenn ich die Zeit finde.

Gruß
Franz

1 Like
#6

Hi Gudrun,

völlig unverständlich, aber seit Jahren im Einsatz und ha! liefert das Datum am Stück:

=WENN(22+REST((19*REST(A2;19)+24);30)+REST((2*REST(A2;4)+4*REST(A2;7)+6*REST((19*REST(A2;19)+24);30)+5);7)10);18+GANZZAHL((A2-1900)*365,25+1)+90;22+REST((19*REST(A2;19)+24);30)+REST((2*REST(A2;4)+4*REST(A2;7)+6*REST((19*REST(A2;19)+24);30)+5);7)-31+GANZZAHL((A2-1900)*365,25+1)+90)) )

Die Jahreszahl steht in A2, aber das wissen wir ja längst.

Gruß Ralf

#7

Jelängerjelieber :wink:
Hi Ralf,

völlig unverständlich,

sach bloß! :wink:

aber seit Jahren im Einsatz und ha!
liefert das Datum am Stück:

=WENN(22+REST((19*REST(A2;19)+24);30)+REST((2*REST(A2;4)+4*REST(A2;7)+6*REST((19*REST(A2;19)+24);30)+5);7)10);18+GANZZAHL((A2-1900)*365,25+1)+90;22+REST((19*REST(A2;19)+24);30)+REST((2*REST(A2;4)+4*REST(A2;7)+6*REST((19*REST(A2;19)+24);30)+5);7)-31+GANZZAHL((A2-1900)*365,25+1)+90))
)

*LOL* *LOL* *LOL* *LOL* *LOL* *LOL* *LOL* *LOL* *LOL* *LOL*

Die Jahreszahl steht in A2, aber das wissen wir ja längst.

Eh’ klar!
Ich hab mal kurz umgeschrieben auf Jahreszahlen in Spalte A und Formeln in Spalte B, weil mir das besser in meinen Kram paßt:

=WENN(22+REST((19*REST(A1;19)+24);30)+REST((2*REST(A1;4)+4*REST(A1;7)+6*REST((19*REST(A1;19)+24);30)+5);7)10);18+GANZZAHL((A1-1900)*365,25+1)+90;22+REST((19*REST(A1;19)+24);30)+REST((2*REST(A1;4)+4*REST(A1;7)+6*REST((19*REST(A1;19)+24);30)+5);7)-31+GANZZAHL((A1-1900)*365,25+1)+90)) )

Alles schön runterkopieren und die letzten 100 Jahre und die nächsten 100 sind auf einem Blatt (siehe meine Frage im Astro-Brett, -nomie, nicht -logie).

Gegen Deine Formel ist die von Reinhards Link ja richtig langweilig, nach dem Motto: darf’s ein bißchen länger sein? *g*

Amüsierten Dank!

Gruß Gudrun

#8

Hi Ralf,

danke fürs Posten der Formel, die (long version) habe ich schon lange gesucht…

Gruß Finus

#9

Hallo Franz,

Umwandlung von Text in Datum funktioniert per Funktion
DATWERT, aber nur solange ein Datum im Bereich des
EXCEL-Gültigkeitsbereiches vorliegt.

Ich werde mich heute mal an die benutzerdefinierte Funktion
machen, wenn ich die Zeit finde.

danke Dir, aber wie Du siehst, hat Ralf schon eine lange Formel präsentiert.

Gruß Gudrun

#10

Hallo Gudrun,

hier meine Version mit benutzerdefinierter Funktion

 A B 
2 Jahr Ostersonntag 
3 2003 20.04.03 

Benutzte Formeln:
B3: =Ostersonntag(A3)

Function Ostersonntag(Jahr)
' Berechnung des Ostersonntag-Datums
' Lösung nach Gauß mit Umsetzung der auf der Internetseite
' http://www.excelformeln.de/formeln.html?welcher=3 angegebenen Formeln
 If Jahr 8702 Then 'Gültigkeitsbereich der Formeln
 Ostersonntag = "Jahr außerhalb Formelgrenze 532 bis 8702"
 MsgBox ("Jahr ist außerhalb des Gültigeitsbereichs der Formel" & Chr$(13) & "532 bis 8702 n. Chr.")
 Exit Function
 End If
 Ost1 = Int(Jahr / 100)
 Ost2 = RestDiv(19 \* RestDiv(Jahr, 19) + Ost1 - Int(Ost1 / 4) - Int((Ost1 - Int((Ost1 + 8) / 25) + 1) / 3) + 15, 30)
 Ost3 = RestDiv(32 + 2 \* RestDiv(Ost1, 4) + 2 \* Int(RestDiv(Jahr, 100) / 4) - Ost2 - RestDiv(RestDiv(Jahr, 100), 4), 7)
 Ost4 = Ost2 + Ost3 - 7 \* Int((RestDiv(Jahr, 19) + 11 \* Ost2 + 22 \* Ost3) / 451) + 22
 If Ost4 - 31 31 Then
 OsterdatumText = OsterdatumText & "04."
 Else
 OsterdatumText = OsterdatumText & "03."
 End If
 OsterdatumText = OsterdatumText & Jahr
 If Jahr Bei den von euch erarbeiteten Formelungetümen wird mir ja ganz schlecht.

Gruß
Franz


> <small>[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]</small>
#11

Huch! - VBA-Formel
Hallo Franz,

hier meine Version mit benutzerdefinierter Funktion

es sieht unheimlich gut aus, aber was muß ich jetzt damit machen?
*verzweifelt guck weil ahnungslos*
Mit gewöhnlichen Makros i.V.m. Tastenkombi kenne ich mich aus, aber hier weiß ich jetzt wirklich nicht den nächsten Schritt. Vielleicht kannst Du noch eine kleine Gebrauchsanleitung mitliefern, sonst wäre ja alles umsonst? Telegrammstil genügt, aber step-by-step, bitte.

Bei den „Formelungetümen“ weiß ich zumindest, wo ich sie hinschreiben muß! :wink:

Gruß Gudrun

A B
2 Jahr Ostersonntag
3 2003 20.04.03

Benutzte Formeln:
B3: =Ostersonntag(A3)

Function Ostersonntag(Jahr)
’ Berechnung des Ostersonntag-Datums
’ Lösung nach Gauß mit Umsetzung der auf der Internetseite
’ http://www.excelformeln.de/formeln.html?welcher=3
angegebenen Formeln
If Jahr 8702 Then 'Gültigkeitsbereich
der Formeln
Ostersonntag = „Jahr außerhalb Formelgrenze 532 bis 8702“
MsgBox („Jahr ist außerhalb des Gültigeitsbereichs der
Formel“ & Chr$(13) & „532 bis 8702 n. Chr.“)
Exit Function
End If
Ost1 = Int(Jahr / 100)
Ost2 = RestDiv(19 * RestDiv(Jahr, 19) + Ost1 - Int(Ost1 / 4)

  • Int((Ost1 - Int((Ost1 + 8) / 25) + 1) / 3) + 15, 30)
    Ost3 = RestDiv(32 + 2 * RestDiv(Ost1, 4) + 2 *
    Int(RestDiv(Jahr, 100) / 4) - Ost2 - RestDiv(RestDiv(Jahr,
    100), 4), 7)
    Ost4 = Ost2 + Ost3 - 7 * Int((RestDiv(Jahr, 19) + 11 * Ost2
  • 22 * Ost3) / 451) + 22
    If Ost4 - 31 31 Then
    OsterdatumText = OsterdatumText & „04.“
    Else
    OsterdatumText = OsterdatumText & „03.“
    End If
    OsterdatumText = OsterdatumText & Jahr
    If Jahr Bei den von euch erarbeiteten Formelungetümen wird mir
    ja ganz schlecht.
#12

es sieht unheimlich gut aus, aber was muß ich jetzt damit
machen?
*verzweifelt guck weil ahnungslos*
Mit gewöhnlichen Makros i.V.m. Tastenkombi kenne ich mich aus,
aber hier weiß ich jetzt wirklich nicht den nächsten Schritt.
Vielleicht kannst Du noch eine kleine Gebrauchsanleitung
mitliefern, sonst wäre ja alles umsonst? Telegrammstil genügt,
aber step-by-step, bitte.

Hi Gudrun,
Ein step by step ist:
Alt+F11 drücken, dort im Editor Einfügen—Modul, dort den Code der Functinen reinkopieren, Editor schliessen.
Benutzung der Funktionen ist dann wie die mit den eingebauten Excelfunktionen. Also entweder =Summe(A1:A10) in die Zelle reinschreiben oder über Einfügen–Funktion—Summe usw.
Funktion Summe steht unter Mathematik, Ostersonntag unter Benutzerdefiniert.
Anstatt Summe() halt Ostersonntag() auswählen.
Gruß
Reinhard

1 Like
#13

*hüstel* Als Gentleman sag ich zu DEM Betreff nix
und vertief mich kurz oder länger in rein sachliche Excelgeschehnisse und unterdrücke meinen Trieb dazu was kürzes oder längeres zu äußern :smile:))
Gruß
Reinhard

#14

Hallo Gudrun Reinhard,

Hi Gudrun,
Ein step by step ist:
Alt+F11 drücken, dort im Editor Einfügen—Modul, dort den
Code der Functinen reinkopieren, Editor schliessen.

Wollte auch gerade eine kleine Anweisung schreiben und natürlich vorher probieren (Win 98, EXCEL97, Internetexplorer 6.0). Es gab ein Problem mit den Zeilenschaltungen. Die hat der Editor beim Einfügen weggelassen. Nach dem Umweg über Word (hier über Bearbeiten --> Inhalte einfügen … --> als Text ->OK) konnte ich den Code im Editor einfügen.

Passiert bei mir nicht immer aber manchmal.

Benutzung der Funktionen ist dann wie die mit den eingebauten
Excelfunktionen. Also entweder =Summe(A1:A10) in die Zelle
reinschreiben oder über Einfügen–Funktion—Summe usw.
Funktion Summe steht unter Mathematik, Ostersonntag unter
Benutzerdefiniert.
Anstatt Summe() halt Ostersonntag() auswählen.
Gruß
Reinhard

Gruß
Franz

1 Like
#15

Geschafft!
Hallo Franz,

Wollte auch gerade eine kleine Anweisung schreiben und
natürlich vorher probieren (Win 98, EXCEL97, Internetexplorer
6.0). Es gab ein Problem mit den Zeilenschaltungen. Die hat
der Editor beim Einfügen weggelassen. Nach dem Umweg über Word
(hier über Bearbeiten --> Inhalte einfügen … --> als
Text ->OK) konnte ich den Code im Editor einfügen.

die fehlenden Zeilenschaltungen haben mir etwas Probleme bereitet, ich habe im Editor direkt „ausgebessert“.

Aber nun hat’s geklappt und es funktioniert ganz großartig!
Die Darstellung der Daten vor 1900 hast Du super gelöst.

Großes Dankeschön und

Gruß Gudrun

#16

Hallo Reinhard,

danke für Deine hilfreiche, verständliche Gebrauchsanweisung.

Gruß Gudrun

Ein step by step ist:
Alt+F11 drücken, dort im Editor Einfügen—Modul, dort den
Code der Functinen reinkopieren, Editor schliessen.
Benutzung der Funktionen ist dann wie die mit den eingebauten
Excelfunktionen. Also entweder =Summe(A1:A10) in die Zelle
reinschreiben oder über Einfügen–Funktion—Summe usw.
Funktion Summe steht unter Mathematik, Ostersonntag unter
Benutzerdefiniert.
Anstatt Summe() halt Ostersonntag() auswählen.

#17

*nix hüstel* Als Lady sag ich Dir, …
… daß es eine Pflanze mit diesem Namen gibt.

und vertief mich kurz oder länger in rein sachliche
Excelgeschehnisse

Das will ich doch hoffen. :wink:

und unterdrücke meinen Trieb dazu was kürzes
oder längeres zu äußern :smile:))

Habe ich eigentlich schon erwähnt, daß das eine Giftpflanze ist? :wink:

Gruß Gudrun

#18

… daß es eine Pflanze mit diesem Namen gibt.
Habe ich eigentlich schon erwähnt, daß das eine Giftpflanze
ist? :wink:

Hallo Gudrun,
die Pflanzenbennner werden (ich glaub dir) dieses Teil halt so benannt haben, und Giftpflanze wird so sein.
Meine Gedanken schweiften ab in eine andere Richtung *lächel*
Und die Richtung sage ich dir nicht Lady :smile:
Gruß
Reinhard