Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Jahr aus Textbox1, Ostersonntagsdatum in Textbox2

Jahr aus Textbox1, Ostersonntagsdatum in Textbox2
11.06.2017 18:05:53
Dieter(Drummer)
Guten Abend VBA Spezialisten.
In Userform1 und Klick auf Label1 (Jahr), wird in Textbox1 das aktuelle Jahr angezeigt.
Gleichzeitig soll dann In Textbox2 (Ostersonntag), das Ostersonntagsdatum
des aktuellen Jahres aus Textbox1 gezeigt werden.
Die Formel in Userform1, für die Ostersonntagsformel, holt sich das Jahr aus der
Tabelle, aus A1 (in VBA Formel : R1C1 …).
Wie muss der Code sein, dass das Ostersonntagsdatum aus der Jahreszahl
aus Textbox1 in Textbox2 erscheint?
Anbei meine Musterdatei: https://www.herber.de/bbs/user/114199.xlsm
Mit der Bitte um Hilfe und
Gruß, Dieter(Drummer)

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Danke Sepp, perfekte Lösung ...
11.06.2017 18:47:04
Dieter(Drummer)
... hätte ich nicht geschafft.
Gruß und einen schönen Abend,
Dieter(Drummer)
AW: Sepp: Zusatzfrage
11.06.2017 19:00:42
Dieter(Drummer)
Hallo Sepp,
wenn ich jetzt in Textbox3 den Ostermontag haben möchte, kann ich das ja in der Zeile anfügen:

D = L + 28 - 31 * (M \ 4) 'Mx: Für Ostermontag + 1, also "D = L + 28 - 31 * (M \ 4)+1

Muss ich dann den ganzen Code "Public Function EasterUSNO(YYYY As Long) As Long" komplett mit der "+ 1" Ergänzung nehmen, oder geht es einfacher?
Wäre schön, wenn du nochmal helfen kannst.
Gruß, Dieter(Drummer)
Meine jetzige Testdatei: https://www.herber.de/bbs/user/114201.xlsm
Anzeige
..und dann den Dienstag usw....
11.06.2017 19:10:46
robert
owT
AW: Sepp: Zusatzfrage
11.06.2017 19:17:11
Sepp
Hallo Dieter,
das wäre wenig sinnvoll, wenn du für jeden von Ostern abhängigen Feiertag eine separate Funktion erstellen würdest.
Für den Ostermontag.
TextBox3 = Format(EasterUSNO(TextBox1) + 1, "dd.mm.yyyy")

Gruß Sepp

Anzeige
AW: Herzlichen Dank Sepp ...
11.06.2017 19:33:07
Dieter(Drummer)
... funktioniert perfekt.
Nun kann ich die Userform so erweitern, dass ich alle Feiertage des Jahres, mit der jeweiligen Zusatzzahl für den entsprechenden Feiertag, angeben kann. Die notwendigen Zahlen sind mir bekannt.
Danke nochmal und Gruß,
Dieter(Drummer)

361 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige