Arbeitsfreie Tage berechnen

Schönen Vormittag,
ich habe folgendes Problem an dem ich schon länger verzweifle.
Ich möchte berechnen, wie viele Tage ich durch meine Urlaubstage und Feiertage gesamt frei habe.
Dazu habe ich einen Bereich mit sämtlichen Feiertagen und eine Liste (Spalte) mit meinen Urlaubstagen. In der Zelle daneben möchte ich nun berechnen wie viele Tage ich durch diesen Urlaubstag gesamt frei habe.
Zb. Ich nehme mir Mo Urlaub und Dienstag ist ein Feiertag dann wäre das Ergebnis 4 Tage (Sa bis Di)
Klar müsste diese Formel wenn ich mir Mo und Dienstag Urlaub nehme in diesen beiden Zeilen das gleiche Ergebnis liefern.
Eigenltich bin ich in Excel wirklich gut, nur mit Matrixformeln kenne ich mich sogut wie gar nicht aus. Wahrscheinlich brauche ich hiefür aber eine Matrixformel?
Die Formel könnte natürlich auch auf mehrere Zellen aufgeteilt sein.
Hat wer Ideen?
Danke im Voraus!
Lg Oli
Beispiel Excel: https://www.herber.de/bbs/user/155568.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
Hab nochmal nachgedacht, es geht auch so wir du willst, für jeden Urlaubstage einzeln, ohne von-bis
Das Prinzip ist folgenden:
Erstellen eine Do-,Schleife
Darin:
Erhöhst du den Tag um 1 und prüfst, ob dieser Tag
Ein Wochenende ist ODER in der Feiertagsliste vorkommt ODER in deiner Urlaubstagsliste vorkommt.
Wenn als drei nicht zutrifft, beendest du die Schleife.
Wenn eine der Bedingungen erfüllt ist, erhöhst du die Anzahl der freien Tage um 1 und setzt die Schleife fort.
Das ganze dann auch in die andere Richtung mit den davorliegenden Tagen.
Als Code etwa so (Achtung, code ist nicht getestet, bitte nicht kopieren, sondern lesen, verstehen, selberschreiben)


Funktion FreieTage(Uraubstag AS Date, ListeFeiertage AS Range, ListeUrlaub AS range) AS long
Dim Tag AS Date
With WorksheetFunction
Tag = Urlaubstag
Do
Tag = Tag + 1
If .Weekday(Tag, 2) > 5 OR .CountIf(ListeFeiertage, Tag) > 0 OR .CountIf(ListeUrlaub, Tag) > 0 then
FreieTage = FreieTage + 1
Else
Exit Do
End if
Loop
Tag = Urlaubstag
Do
Tag = Tag - 1
If .Weekday(Tag, 2) > 5 OR .CountIf(ListeFeiertage, Tag) > 0 OR .CountIf(ListeUrlaub, Tag) > 0 then
FreieTage = FreieTage + 1
Else
Exit Do
End if
Loop
FreieTage = FreieTage + 1
End With
End Function

Diese Schleife mit Abbruch ist in einer Excelformel nicht darstellbar, deswegen VBA.
Gruß Daniel

Function sbFreeDays(dtDay As Date, _ vHolidays As Variant, _ vVacationDays As Variant) As Variant '(C) (P) Sulprobil.com v0.1 09-Oct-2022 'Given any date, a list of bank holidays, and a list of 'vacation days, sbFreeDays calculates the number of free 'days, the first free day and the last free day and 'returns these three values as a variant. Saturdays and 'Sundays are also treated as free days. Dim dt As Date Dim dtFirst As Date Dim dtLast As Date Dim oFree As Object Dim v 'Initialize Set oFree = CreateObject("Scripting.Dictionary") For Each v In vHolidays: oFree(CDate(v)) = 1: Next v For Each v In vVacationDays: oFree(CDate(v)) = 1: Next v 'Look for first free day dt = dtDay - 1 Do While Weekday(dt, vbMonday) > 5 Or oFree.exists(dt) dt = dt - 1 Loop dtFirst = dt + 1 'Look for last free day dt = dtDay + 1 Do While Weekday(dt, vbMonday) > 5 Or oFree.exists(dt) dt = dt + 1 Loop dtLast = dt - 1 sbFreeDays = Array(dtLast - dtFirst + 1, dtFirst, dtLast) End Function

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread