Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Arbeitstage ohne Feiertag in VBA"
Arbeitstage mit Samstagen Verbleibende Nettoarbeitstage des Monats berechnen
Nettoarbeitstage und bewegliche Feiertage Nachbildung der Funktion NETTOARBEITSTAGE aus dem Analyse-Pack
NETTOARBEITSTAGE-Funktion sprachunabhängig gestalten Nettoarbeitstage unter Urlaubsberücksichtigung bestimmen
Feststellung der beweglichen Feiertage Wochenenden und Feiertage in Jahresliste markieren
Tagesblätter eines Monats ohne Wochenenden und Feiertage anlegen Maximalwert für Wochenenden und Feiertage ermitteln