Thema Datum  Von Nutzer Rating
Antwort
02.02.2019 14:06:03 Marc
NotSolved
02.02.2019 14:29:58 Flotter Feger
NotSolved
05.02.2019 21:45:09 Marc Meidt
NotSolved
Blau DateAdd mit Werktagen
 06.02.2019 09:33:56 Gast70117
NotSolved
06.02.2019 17:54:38 Gast0815
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
06.02.2019 09:33:56		 Views:
444		 Rating:
     
Antwort:
  Ja
Thema:
DateAdd mit Werktagen		 
Sub Test()
Dim dte As Date, dtR As Date
Dim dist As Integer
Dim wkd As Integer

   'supply
   Range("E12").Value = Date
   Range("G12").Value = 11
   
   'output
   Range("B13").Value = Working_Days(Range("E12"), Range("G12"), 1)
   '
   Range("B15").Value = Working_Days("02.02.2019", 11, 1)
   '
   dte = Date: dist = 15: wkd = 1
   dtR = Working_Days(dte, dist, 1)
   MsgBox dtR

End Sub

Private Function Working_Days(dStart As Date, intD As Integer, intI As Integer) As Date
   Working_Days = WorksheetFunction.WorkDay_Intl(dStart, intD, intI)
End Function

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.02.2019 14:06:03 Marc
NotSolved
02.02.2019 14:29:58 Flotter Feger
NotSolved
05.02.2019 21:45:09 Marc Meidt
NotSolved
Blau DateAdd mit Werktagen
 06.02.2019 09:33:56 Gast70117
NotSolved
06.02.2019 17:54:38 Gast0815
NotSolved