Makro funzt nicht so wie ich will
31.03.2009 16:21:06
mike49
das Makro funktioniert nicht so wie ich will.
Die Anfangszeit am Vormittag wird in E8:E38 eingetragen. Es soll aber erst ab 9:15 gerechnet werden, wenn diese Die Anfangszeit am Nachmittag wird in G8:G38 eingetragen. Es soll aber erst ab 13:15 gerechnet werden, wenn diese Was ist da falsch?
Option Explicit
Function arbdau(va, ve, na, ne)
Dim vorm As Date
Dim nachm As Date
Dim ArbBegVM As Date 'Arbeitsbeginn Vormittag
Dim ArbBegNM As Date 'Arbeitsbeginn Nachmittag
Select Case ActiveSheet.Name
Case "Jan", "Feb", "Mär"
ArbBegVM = 9 / 24
ArbBegNM = 13 / 24
Case Else
ArbBegVM = 9.25 / 24
ArbBegNM = 13.25 / 24
End Select
'Anfangszeit auf 0 And va > 0 Then vorm = ve - va
If ne > 0 And na > 0 Then nachm = ne - na
arbdau = vorm + nachm
End Function
Gruß
mike49