Tage zwischen zwei Datümern auswerten
Reinhard
in A ist der Starttermin, in C der Endtermin. Beide Spalten benutzerdefiniert so formatiert: TTT, TT.MM.JJJJ
Es können da ja 0-X Tage dazwischenliegen, diese Zahl der dazwischenliegenden Tage möchte ich ermitteln.
Mit Datediff-1 erhalte ich diese Zahl. Diese will ich nun vermindern um die Tage die Sa oder So sind. daran scheitere ich bislang.
Es soll eine UDF werden.
Sobald ich die Hochkommas im Code wegmache kommt "#WERT!" :-(
Function ZDiff()
Dim Zei As Long, Tage As Integer
Zei = Application.Caller.Row
Tage = DateDiff("d", Range("A" & Zei), Range("C" & Zei)) - 1
'MsgBox CDate(Range("A" + Zei).Value)
'MsgBox Range("A" + Zei).Value
'For N = 1 To Tage
' If Weekday(Range("A" + Zei).Value + N, vbMonday) > 5 Then Tage = Tage - 1
'Next N
ZDiff = Tage
End Function
Danke ^ Gruß
Reinhard