Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

VBA-Funktion für Nettoarbeitstage

623 views
Skip to first unread message

Bruno Steis

unread,
Aug 6, 2001, 9:11:21 AM8/6/01
to
Hallo.

Wer kennt den Namen der Tabellenblattfunktion "Nettoarbeitstage" in VBA?
Oder hat schon mal jemand eine Ersatzfunktion programmiert?

Vielen Dank im Voraus.

Bruno

Thomas Ramel

unread,
Aug 6, 2001, 10:04:03 AM8/6/01
to
Grüezi Bruno

Bruno Steis schrieb:


>
> Wer kennt den Namen der Tabellenblattfunktion "Nettoarbeitstage" in VBA?

Hab ich auch nicht gefunden :-( Muss aber nichts heissen ;-)

> Oder hat schon mal jemand eine Ersatzfunktion programmiert?

Versuchs mal so:
In A2 das Startdatum, in B2 das Enddatum (C2 =Nettoarbeitstage(A1;A2)
zur Kontrolle)

Folgende Prozedur in z.B. "Diese Arbeitsmappe" kopieren, liefert
Resultat in D2:

Public Sub NettoWorkDays()
StartDate = ActiveSheet.Range("A2").Value
EndDate = ActiveSheet.Range("B2").Value
Workdays = EndDate - (StartDate - 1)
For i = StartDate To EndDate
If Weekday(i, 2) >= 6 Then
Workdays = Workdays - 1
End If
Next i

Range("D2").Value = Workdays

End Sub


HTH

--
Mit freundlichen Grüssen


Thomas Ramel
Schlesinger Konstruktionen
http://www.4853.ch/Schlesinger

Robert Gelbmann

unread,
Aug 6, 2001, 10:29:39 AM8/6/01
to
Hi Bruno!

---"Bruno Steis" <Bruno...@de.Bosch.com> schrieb ...


> Wer kennt den Namen der Tabellenblattfunktion "Nettoarbeitstage" in VBA?
> Oder hat schon mal jemand eine Ersatzfunktion programmiert?

Nettoarbeitstage gehört zu den "Analysefunktionen". D. h. sie steht erst mit
dem gleichnamigen Add-In zur Verfügung.
Für die Nutzung unter VBA gehst du am besten wie folgt vor:

- Wechseln zum Visual Basic-Editor
- Extras/Verweise
- "atpvbaen.xls" aktivieren
- OK


Danach kannst du die Funktion wie folgt nutzen:

xNettoarbeitstage =
VBA_Funktionen_und_Subs.Networkdays(StartDatum,EndDatum,Feiertage)


--
In der Hoffnung geholfen zu haben, verbleibe ich mit einem leisen

Servus aus Wien,
-Robert Gelbmann-

---
MS MVP für Excel
EML: rgel...@mvps.org

Thomas Ramel

unread,
Aug 6, 2001, 10:42:42 AM8/6/01
to
Grüezi Robert

Robert Gelbmann schrieb:


>
> Hi Bruno!
>
> ---"Bruno Steis" <Bruno...@de.Bosch.com> schrieb ...
> > Wer kennt den Namen der Tabellenblattfunktion "Nettoarbeitstage" in VBA?
> > Oder hat schon mal jemand eine Ersatzfunktion programmiert?
>
> Nettoarbeitstage gehört zu den "Analysefunktionen". D. h. sie steht erst mit
> dem gleichnamigen Add-In zur Verfügung.
> Für die Nutzung unter VBA gehst du am besten wie folgt vor:
>
> - Wechseln zum Visual Basic-Editor
> - Extras/Verweise
> - "atpvbaen.xls" aktivieren
> - OK
>
> Danach kannst du die Funktion wie folgt nutzen:
>
> xNettoarbeitstage =
> VBA_Funktionen_und_Subs.Networkdays(StartDatum,EndDatum,Feiertage)

Jetzt hab ich's auch gefunden %-))

Frank Arendt-Theilen

unread,
Aug 6, 2001, 10:52:50 AM8/6/01
to
Hallo Bruno,
deutsch: Nettoarbeitstage, englisch: Networkdays

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
E-Mail: Thei...@t-online.de


Am Mon, 6 Aug 2001 15:11:21 +0200, schrieb "Bruno Steis"
<Bruno...@de.Bosch.com> in microsoft.public.de.excel zu
"VBA-Funktion für Nettoarbeitstage":

0 new messages