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"