Thema: Urlaubsplan Feiertage und Wochenden Überspringen

Guten Tag zusammen,

ich hätte mal eine frage und zwar geht es darum das ich in Meinem Urlaubsplaner die Feiertage und Wochenende ausgeblendet haben möchte


So sieht es derzeit aus


So soll es zum schluss aussehen

Das ist die derzeitige Formel um den Urlaub einzutragen. Es wird alles über eine UserForm eingetragen

Private Sub ButtonSpeichern_Click()

    Dim sDatum As Variant

    Dim eDatum As Variant

    Dim Kollege As Range

    Dim Wks

    Dim i As Long

    Dim neueZeile As Long

    

    If ComboBoxVorundNachname = "" Or TextBoxAbwesendvon.Value = "" Or TextBoxAbwesendbis = "" Or ComboBoxAbwesend.Value = "" Then

        MsgBox "Bitte füllen sie alle Felder aus!"

        Exit Sub

    End If

    

    If ComboBoxVorundNachname.List(ComboBoxVorundNachname.ListIndex, 1) = "Schicht A" Then Set Wks = Tabelle2

    If ComboBoxVorundNachname.List(ComboBoxVorundNachname.ListIndex, 1) = "Schicht B" Then Set Wks = Tabelle4

    If ComboBoxVorundNachname.List(ComboBoxVorundNachname.ListIndex, 1) = "Schicht C" Then Set Wks = Tabelle6

    With Wks

        Set Kollege = .Columns(3).Find(ComboBoxVorundNachname.List(ComboBoxVorundNachname.ListIndex, 0), LookIn:=xlValues)

        If IsNumeric(TextBoxAbwesendvon) Then

            sDatum = Application.Match(CLng(CDate(TextBoxAbwesendvon)), .Rows(6), 0)

        Else

            MsgBox "Bitte Datum eintragen"

            TextBoxAbwesendvon = ""

            TextBoxAbwesendvon.SetFocus

            Exit Sub

        End If

        If IsNumeric(TextBoxAbwesendbis) Then

            eDatum = Application.Match(CLng(CDate(TextBoxAbwesendbis)), .Rows(6), 0)

        Else

            MsgBox "Bitte Datum eintragen"

            TextBoxAbwesendbis = ""

            TextBoxAbwesendbis.SetFocus

            Exit Sub

        End If

        If Not Kollege Is Nothing Then

            For i = sDatum To eDatum

                .Cells(Kollege.Row, i) = ComboBoxAbwesend

            Next i



        End If

    End With

    Unload Me

End Sub

Möchte dazu gerne das zum schluss der Urlaub drin steht. Aber Feiertage sowohl auch Wochenenden übersprungen werden sollen.

Die Tabelle mit denn Feiertagen wäre Tabelle3

Ich hoffe es kann mir jemand weiterhelfen Danke im Vorraus. :)