Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Arbeitstage ohne Feiertag in VBA

Arbeitstage ohne Feiertag in VBA
19.02.2005 16:21:33
günter
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Arbeitstage ohne Feiertag in VBA
Horst
Die Funktion NETTOARBEITSTAGE()
Horst
AW: Arbeitstage ohne Feiertag in VBA
Sigi
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
Anzeige
AW: Arbeitstage ohne Feiertag in VBA
20.02.2005 12:49:14
g_geunter
Danke für euere schnelle Hilfe!
Werde die Vorgschläge gleich ausprobieren.
Gurß
günter

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige