Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
524to528
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
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Feiertagsberechnung

Feiertagsberechnung
30.11.2004 11:36:28
Torsten
Moin, moin
Ich habe folgendes Problem:
In meiner Arbeitszeitberechnungsmappe lasse ich die Feiertage in dem entsprechenden Monat automatisch eintragen. Diese Berechnung erfolgt mit 1900-Datumswerten und funktioniert sehr gut.
Ich bräuchte aber eine Formel die sich auf 1904-Datumswerte bezieht oder eine Möglichkeit innerhalb einer Mappe einem einzelnem Blatt eine andere Berechnungsgrundlage (ein Blatt mit 1900-Datumswerten und eine anderes mit 1904-Datumswerten) zuzuweisen.
Grund:
Stelle ich die Feiertagsberechnung richtig ein sind die restlichen Blätter der Arbeitsmappe mit #### (bei Zeitberechnungen) versehen.

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

Betreff
Datum
Anwender
Anzeige
AW: Feiertagsberechnung
Hübi
Hi Torsten,
diese Funktion wurde hier im Forum einmal vorgestellt

Function Ostern(Jahr As Integer) As Date
Dim A%, B%, C%, D%, E%, M%, N%, P%, K%
A = Jahr Mod 19
B = Jahr Mod 4
C = Jahr Mod 7
M = 24
N = 5
D = (19 * A + M) Mod 30
E = (2 * B + 4 * C + 6 * D + N) Mod 7
P = 22 + D + E
If ActiveWorkbook.Date1904 = True Then
Jahr = Jahr - 4
P = P - 1
End If
If P > 31 Then
If P = 56 And D = 28 And A > 10 Then
Ostern = DateSerial(Jahr, 4, 18)
ElseIf P = 57 Then
Ostern = DateSerial(Jahr, 4, 19)
Else
Ostern = DateSerial(Jahr, 4, P - 31)
End If
Else
Ostern = DateSerial(Jahr, 3, P)
End If
End Function

Diese erkennt, ob 1904 Datumswerte benutzt werden.
Wenn du gemischt arbeiten willst, musst du diese beiden Zeilen löschen
If ActiveWorkbook.Date1904 = True Then
End If
und evtl. der Fkt. einen anderen Namen geben.
Gruß Hübi
Anzeige
AW: Feiertagsberechnung
Torsten
Vielen Dank für deine Hilfe. Hat mir sehr geholfen.
Gruß Torsten
Danke für Antwort - erledigt
Hübi

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige