Die Funktion Arbeitstag hinzufügen Werktagen

Ich versuche zum ausführen von code aus der Basis von Daten, die in der D-Spalte. Der code unten funktioniert. Aber der "wenn" - Teil der bedingten Formatierung werden muss + 30 Arbeitstage, nicht plus dreißig Tage. Ich gehe davon aus, dass die ARBEITSTAG-Funktion hilft dabei. Aber wenn ich versuche, + Werktag(30) und Dinge wie, dass ich nicht überall zu bekommen.

For Each oKey In oDictionary.keys
    Editing_Sheet.Range("A1").CurrentRegion.AutoFilter Field:=1,    Criteria1:=CStr(oKey)
    LastRowFiltered = Editing_Sheet.Cells(Rows.Count, "A").End(xlUp).Row
        If Range("D" & LastRowFiltered) <= Date + 30 Then
         'run code'

Auch mein VBA ist nicht zu erkennen, was bei allen mit der Funktion Arbeitstag

InformationsquelleAutor New2VBA | 2015-02-26

7

Verwenden Sie das Arbeitsblatt Arbeitstag() Funktion innerhalb VBA:
```
Sub WhyWork()
    Dim d1 As Date, d2 As Date, wf As WorksheetFunction
    Set wf = Application.WorksheetFunction
    d1 = Date
    d2 = wf.WorkDay(d1, 30)
    MsgBox d1 & vbCrLf & d2
End Sub
```
- Set wf = Application.WorksheetFunction ist genial. Weiß nicht, warum ich noch nie gedacht!
- Ich muss zugeben, dass ich ein bisschen faul bin.
- Es ist nicht faul. Es ist...effizient! (das ist, was ich mir zumindest)
- Der Sub name ist ziemlich genial auch
- Manchmal ein lächeln ist nur so gut wie die code.
InformationsquelleAutor Gary's Student

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.