Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1516to1520
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
1516to1520
1516to1520
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datum

Datum
13.10.2016 13:54:21
Max
Moin zusammen,
gibt es eine Formel, die mir aus verschiedenen Datümern alle Sonn. und Feiertag ausgibt?
Danke und Gruß

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum
13.10.2016 14:06:17
Fennek
Hallo,
mit der Formel =wochentag() kann man die Sonntage bestimmen. Da die Feiertage auch in jedem Bundesland anderst sein können, muss man sie einmal selbst eingeben. Dann kann man die Feiertage in der Funktion "=arbeitstage()" mit einbinden.
mfg
AW: Datum
13.10.2016 14:06:39
UweD
Meinst du das?

Tabelle2
 AB
113.10.2016gewöhnlicher Donnerstag
214.10.2016gewöhnlicher Freitag
315.10.2016gewöhnlicher Samstag
416.10.2016gewöhnlicher Sonntag
524.12.2016Heiligabend
603.10.2016Tag der Deutschen Einheit

verwendete Formeln
Zelle Formel Bereich N/A
B1:B6=PERSONAL.xlsb!FeierTag(A1;1)  

Habe dazu eine Benutzerdefinierte Formel in Personal.xlsx
Public Function FeierTag(Datum As Date, n As Boolean) As String Dim Jahr As Integer Jahr = Year(Datum) If (Jahr > 1904) And (Jahr < 2100) Then Select Case Format$(Datum, "dd.mm") ' Gesetzliche Feiertage Case "01.01": FeierTag = "Neujahr" 'Case "06.01": FeierTag = "Heilige Drei Könige" 'nicht in NRW Case "01.05": FeierTag = "Tag der Arbeit" 'Case "15.08": FeierTag = "Mariä Himmelfahrt" 'nicht in NRW Case "03.10": FeierTag = "Tag der Deutschen Einheit" 'Case "31.10": FeierTag = "Reformationstag" 'nicht in NRW Case "01.11": FeierTag = "Allerheiligen" Case "24.12": FeierTag = "Heiligabend" Case "25.12": FeierTag = "1. Weihnachtsfeiertag" Case "26.12": FeierTag = "2. Weihnachtsfeiertag" Case "31.12": FeierTag = "Sylvester" Case Else ' Bewegliche Feste: Select Case Datum - OsterSonntag(Datum) 'Case -52: FeierTag = "Weiberfastnacht" 'nicht in NRW 'Case -48: FeierTag = "Rosenmontag" 'nicht in NRW Case -2: FeierTag = "Karfreitag" Case 0: FeierTag = "Ostersonntag" Case 1: FeierTag = "Ostermontag" Case 39: FeierTag = "Christi Himmelfahrt" Case 49: FeierTag = "Pfingstsonntag" Case 50: FeierTag = "Pfingstmontag" Case 60: FeierTag = "Fronleichnam" Case Else If Datum = CDate("25.12." & Jahr) - Weekday("25.12." & Jahr, _ vbMonday) - 32 Then ' FeierTag = "Buß- und Bettag" 'nicht in NRW Else If n = True Then FeierTag = "gewöhnlicher " & Format$(Datum, "DDDD") ' Kein Feiertag ElseIf n = False Then FeierTag = vbNullString ' Kein Feiertag End If End If End Select End Select Else: FeierTag = vbNullString End If End Function Public Function OsterSonntag(Datum As Date) As Date Dim A As Integer, D As Integer, E As Integer, Jahr As Integer Jahr = Year(Datum) If (1904 < Jahr) And (Jahr < 2100) Then ' Datum zulässig ? A = Jahr Mod 19 D = (19 * A + 24) Mod 30 E = (2 * (Jahr Mod 4) + 4 * (Jahr Mod 7) + 6 * D + 5) Mod 7 OsterSonntag = CDate(DateSerial(Jahr, 3, 22 + D + E)) If Month(OsterSonntag) = 4 Then If Day(OsterSonntag) = 26 Or (Day(OsterSonntag) = 25 And E = 6 And A > 10) Then OsterSonntag = OsterSonntag - 7 End If End If End If End Function
LG UweD
Anzeige
AW: Datum
13.10.2016 14:47:06
Wilfried
Hallo!
Meinst du es so? Sa,So,Ft, zählen?
Tabelle2

 ABCDEFGHIJ
12016         
2Fr 01.01.2016Neujahr        
3Mi 06.01.2016Heilige 3 Könige        
4So 27.03.2016Ostersonntag        
5Mo 28.03.2016Ostermontag        
6So 01.05.2016Tag der Arbeit        
7Do 05.05.2016Christi Himmelfahrt        
8So 15.05.2016Pfingstsonntag        
9Mo 16.05.2016Pfingstmontag        
10Do 26.05.2016Fronleichnam        
11Mo 15.08.2016Mariahimmelfahrt        
12Mi 26.10.2016Nationalfeiertag        
13Di 01.11.2016Allerheiligen        
14Do 08.12.2016Maria Empfängnis        
15So 25.12.2016Christtag        
16Mo 26.12.2016Stefanitag        
17          
18        WievieleWieviele
19  oh.Sa,So GesamttageFreie Tageoh Sa,SoWievieleWievieleFeiertageFeiertage an
20  oh Feiertage   SaSogesamtWerktage
21          
22          
2301.05.201631.05.2016193112224553
2401.01.201631.12.201625036611626153521511
25          

Formeln der Tabelle
ZelleFormel
C23=SUMMENPRODUKT((WOCHENTAG(ZEILE(INDIREKT(A23&":"&B23)); 2)<6)*1)-SUMMENPRODUKT(($A$2:$A$16>=A23)*($A$2:$A$16<=B23)*(WOCHENTAG($A$2:$A$16;2)<6))
D23=B23-A23+1
E23=D23-C23
F23=SUMMENPRODUKT((WOCHENTAG(ZEILE(INDIREKT(A23&":"&B23)); 2)<6)*1)
G23=SUMMENPRODUKT(--(WOCHENTAG(ZEILE(INDIREKT(A23&":"&B23)); 2)=6))
H23=SUMMENPRODUKT(--(WOCHENTAG(ZEILE(INDIREKT(A23&":"&B23)); 2)=7))
I23=SUMMENPRODUKT(($A$2:$A$16>=A23)*($A$2:$A$16<=B23))
J23=F23-C23


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß
Wilfried
Anzeige
AW: Datum
13.10.2016 15:03:36
Max
Danke euch allen...
@Winfried: zählen möchte ich die Tage nicht...ist aber auch eine schöne Formel, die ich bestimmt mal gebrauchen kann :)

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige