Arbeitstage ohne Feiertag in VBA

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Arbeitstage ohne Feiertag in VBA
von: günter
Geschrieben am: 19.02.2005 16:21:33
hallo ng`s
habe in excelxp ein kleines programm geschrieben.
nun möchte ich die differenz (tage) von zwei datumseinträgen in
einer userform berechen, dabei sollen samstage, sonntage und feiertage
abgezogen werden - also rein die arbeitstage ermittel werden.
gib es in vba evtl. eine funktion dafür, habe bisher keine gefunden.
für einen tipp wäre ich sehr dankbar.
gruß
günter

Bild

Betrifft: AW: Arbeitstage ohne Feiertag in VBA
von: Horst
Geschrieben am: 19.02.2005 16:23:51
Die Funktion NETTOARBEITSTAGE()
Horst
Bild

Betrifft: AW: Arbeitstage ohne Feiertag in VBA
von: Sigi
Geschrieben am: 19.02.2005 16:42:53
Hallo Günter,
hier eine Funktion ...

Function Arbeitstage(AnfDatum As Date, EndDatum As Date, _
                            FreieTage As Excel.Range) As Long
Dim Datum As Date
Dim Tage As Long
Dim Istfrei As Boolean
Dim FreiTag As Range
If AnfDatum <= EndDatum Then
    For Datum = AnfDatum To EndDatum
        Istfrei = False
        If Weekday(Datum, vbMonday) < 6 Then
            For Each FreiTag In FreieTage
                If Datum = FreiTag.Value Then
                    Istfrei = True
                    Exit For
                End If
            Next FreiTag
            If Not Istfrei Then
                Tage = Tage + 1
            End If
        End If
    Next Datum
Else
    Tage = ""
End If
Arbeitstage = Tage
End Function

Gruß
Sigi
Bild

Betrifft: AW: Arbeitstage ohne Feiertag in VBA
von: g_geunter
Geschrieben am: 20.02.2005 12:49:14
Danke für euere schnelle Hilfe!
Werde die Vorgschläge gleich ausprobieren.
Gurß
günter
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Arbeitstage ohne Feiertag in VBA"