Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
364to368
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Feiertage

Feiertage
20.01.2004 10:24:43
Melanie Fröhling
Hallo Ihr,
habe ein großes Problem auf Arbeit, habe keine Ahnung von VBA,
ich soll nach einem Anfangs- und Enddatum die dazwischenliegenden Tage zählen lassen. Ausgenommen der Samstage, Sonntage; sowie unter Beachtung des Schaltjahres, und abzüglich der Feiertage:
Neujahr
Karfreitag
Ostersonntag
Ostermontag
Maifeiertag
Christi Himmelfahrt
Pfingstsonntag
Pfingstmontag
Fronleichnam
Tag der Deutschen Einheit
Reformationstag
Buß-und Bettag
1. Weihnachtsfeiertag
2. Weihnachtsfeiertag
(Manche Feiertage z.B. Ostern Fallen immer auf ein anderse Datum)

Is viel verlangt, aber könnt Ihr mir helfen, es ist wichtig!
Danke, danke, danke!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Feiertage
20.01.2004 10:33:06
Volker Bourtscheidt
Hallo Melanie
schau hier nach
www.herber.de/forum/archiv/84to88/t84236.htm
Da gibt es auch einen Link mit der entsprechenden Beispieldatei.
Ansonsten im AddIn-Manager im Menü Extras die Analysefunktionen aktivieren,
dann kannst Du mit =Nettoarbeitstage die entsprechenden Daten ausklammern.
Gruß
Volker
AW: Feiertage
20.01.2004 11:01:29
Harald
Hallo Melanie
also für Ostern gibt es extra eine Berechnungsformel.
Ostern: =RUNDEN((TAG(MINUTE(JAHR(S2)/38)/2+55)&".4."&JAHR(S2))/7;)*7-6
für s2 ist das Jahr einzutragen.
Für die Restlichen Feiertage gibt es bei www.ms-office-forum.net eine Auflistung, wieviel Tage sie nach Ostern sind.
Dafür brauchst du kein VBA. Ich habe das auch alles mit Excel gemacht.
MfG
Harald
Anzeige
AW: Feiertage
24.01.2004 16:46:28
Joshi
Der Ostersonntag eines Jahres lässt sich berechnen, alle andere beweglichen Feiertage stehen dazu in direktem Verhältnis. Als Übergabe wird nur JAHR benötigt.
a = JAHR Mod 19
b = JAHR Mod 4
c = JAHR Mod 7
j = (19 * a + 24) Mod 30
k = ((2 * b) + (4 * c) + (6 * j) + 5) Mod 7
If j = 29 And k = 6 Then
TAG = 19
MONAT = 4
ElseIf j = 28 And k = 6 Then
TAG = 18
MONAT = 4
Else
l = j + k
If l < 10 Then
TAG = 22 + l
MONAT = 3
Else
TAG = l - 9
MONAT = 4
End If
End If
Ostersonntag = DateSerial(JAHR, MONAT, TAG)
Ostersonntag - 48 = Rosenmontag
Ostersonntag - 46 = Aschermittwoch
Ostersonntag - 7 = Palmsonntag
Ostersonntag - 3 = Gründonnerstag
Ostersonntag - 2 = Karfreitag
Ostersonntag - 1 = Ostersamstag
Ostersonntag + 1 = Ostermontag
Ostersonntag + 39 = Christi Himmelfahrt
Ostersonntag + 48 = Pfingstsamstag
Ostersonntag + 49 = Pfingstsonntag
Ostersonntag + 50 = Pfingstmontag
Ostersonntag + 60 = Fronleichnam
Ich hoffe das hilft, dummerweise sind die Tabstopps weg und es ist etwas unübersichtlich!
Gruß
Joshi
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige