Wechsel der freien Tage während der Laufzeit

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nordic,

als VBA-Fkt.:

Function ArbTageAdd(Datum As Date, ArbTage As Long, FreieTage As Range) As Date

Dim Dt As Date, tt As Long

        Dt = Datum: tt = ArbTage

        If tt > 0 Then

            Do

                Dt = Dt + 1

                If Not IstFrei(Dt, FreieTage) Then

                    tt = tt - 1

                End If

            Loop While tt > 0

        ElseIf tt  0 Then

            Do

                Dt = Dt - 1

                If Not IstFrei(Dt, FreieTage) Then

                    tt = tt + 1

                End If

            Loop While tt  0

        End If

        ArbTageAdd = Dt

End Function



'******************************************************************

Private Function IstFrei(Dt As Date, FreieTage As Range) As Boolean

Dim FT As Range, frei As Boolean

        'vor 13.10.

        If (Dt  DateSerial(2023, 10, 13) And Weekday(Dt, 2) = 3) Or Weekday(Dt, 2) > 5 Then

            frei = True

        'nach 12.10.

        ElseIf (Dt > DateSerial(2023, 10, 12) And Weekday(Dt, 2) = 5) Or Weekday(Dt, 2) > 5 Then

            frei = True

        Else

            For Each FT In FreieTage

                If FT.Value = Dt Then

                    frei = True

                End If

            Next FT

        End If

        IstFrei = frei

End Function

Dann reichen bei "freie Tage" die Feiertage.

Gruß Sigi

Moin Sigi,
erstmal herzlichen Dank für Deine Mühe. :)

Ich muss zugeben, dass ich den VBA Code zwar so einigermaßen verstehe und auch "vermute" dass er beim Tabellenblatt hinterlegt wird, wie ich den Code jedoch konkret in dem Projekt anspreche ist mir ein Rätsel.
Daher werd' ich wohl doch auf den anderen Vorschlag zurückkommen und die freien Tage in die "Ressourcen" packen, zumal auch Brückentage vorkommen können.
Beispielsweise werden wir auch zwischen den Feiertagen geschlossen haben (27. und 28.12., 29.12. ist ohnehin ein Freitag)

Ich würde jedoch für die freien Tage eher eine weitere Spalte (neben den Feiertagen) bestücken wollen.
(find ich irgendwie geordneter, auch wenn's später niemand sieht, da "Ressourcen" ausgeblendet sein wird.
Wie muss ich den Part

Ressourcen!C$2:C$68)

anpassen, da die Feiertage in C2:C15 und die freien Tage in D2:D55 berücksichtigt werden sollen?

Den Wechsel in der ersten Woche des neuen Jahres zu vollziehen wäre wohl in der Hinsicht geschickter gewesen.
Alle "neuen" bekommen eine angepasste Formel und gut.

Gruß, Uwe

Beliebteste Forumthreads (12 Monate)

Wechsel der freien Tage während der Laufzeit

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread