WorksheetFunction.NetworkDays_Intl

[RPP63]

Moin!
Eine oder mehrere Zellen sind ein Range().
Beachte auch, dass immer korrekt referenziert werden sollte!
Cells(i, 6) bezieht sich immer auf das ActiveSheet.

Code:

Dim i&
LetzteZeile = ThisWorkbook.Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LetzteZeile
  With Worksheets(2)
   .Cells(i, 9).Value = _
    WorksheetFunction.NetworkDays_Intl(.Cells(i, 6), .Cells(i, 7), 1, Worksheets("Feiertage").Range("O2:O15"))
  End With
Next i

Gruß Ralf