HERBERS Excel-Forum - die Beispiele

Thema: Verbleibende Nettoarbeitstage des Monats berechnen

Home

Gruppe

DatumZeit

Problem

Wie kann ich die Nettoarbeitstage, die verbleibenden Nettoarbeitstage ab einem bestimmten Tag und das Verhältnis der beiden Werte zueinander berechnen?

Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.
StandardModule: Modul1

Sub VbsAufruf()
   Dim sFile As String
   Dim sArg As String
   sArg = """" & Application.UserName & Chr(34) & Now & """"
   sFile = ThisWorkbook.Path & "\message.vbs "
   Shell "WScript.exe " & sFile & sArg, vbNormalFocus
End Sub