WorksheetFunction.NetworkDays Problem
20.02.2019 12:52:27
Torsten
habe folgendes Problem mit der WorksheetFunction.NetworkDays:
Ich moechte Arbeitstage berechnen. Dazu stelle ich sicher, dass die zu verwendende Spalte auch in Datum formatiert ist mit:
ThisWorkbook.Sheets("Sheet5").Range("C:C").NumberFormat = "dd/mm/yyyy"
Dann die WorksheetFunction:
With ThisWorkbook.Sheets("Sheet5")
Y = .Range("C" & Rows.Count).End(xlUp).Row
For i = 1 To Y
a = WorksheetFunction.NetworkDays(Date, .Cells(i, 3))
If a >= -1 Then
.Cells(i, 10) = "GREEN"
.Cells(i, 11) = "3"
Else
If a = -3 Then
.Cells(i, 10) = "YELLOW"
.Cells(i, 11) = "2"
Else
If a Hier das Problem: Der code laeuft solange, bis er auf eine Zelle trifft, in der der Tag (dd) groesser als 12 ist. Dann bekomme ich den LZF 1004: "Unable to get the NetworkDays property of the WorksheetFunction class". Hat etwas mit dem Monat zu tun, denke ich. Komme aber nicht dahinter, was ich aendern muss, damit es funktioniert.
Koennt ihr mir bitte auf die Spruenge helfen?
Danke euch