Gruppe
DatumZeit
Bereich
Arbeitszeit
Thema
Verbleibende Nettoarbeitstage des Monats berechnen
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