Hilfe bei Makroerweiterung
28.03.2009 11:43:07
mike49
ich habe in einem Modul ein Makro stehen, das unter anderem regelt, dass ein Arbeitsbeginn vor 9 Uhr bei der Berechnung nicht berücksichtigt wird. Jetzt hat sich der Arbeitsbeginn auf 9:15 Uhr verschoben. Meine Arbeitmappe hat 12 Blätter mit den Bezeichnungen "Jan,Feb,Mär,Apr,Mai,Jun,Jul,Aug,Sep,Okt,Nov,Dez". Die Neuregelung soll aber erst ab April zum Tragen kommen. Wie müsste das Makro geändert werden?
Die Regelung beim Arbeitsbeginn um 13 Uhr bleibt unverändert.
Option Explicit
Function arbdau(va, ve, na, ne)
Dim vorm As Date
Dim nachm As Date
'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
Function nettobetr(stulo, netto)
If netto > 0 Then nettobetr = stulo * netto
End Function
Function arbdauger(va, ve, na, ne)
Dim vormGer As Double
Dim nachmGer As Double
If ve > 0 And va > 0 Then vormGer = Application.WorksheetFunction.Floor(ve * 24, ",25") _
- Application.WorksheetFunction.Ceiling(va * 24, ",25")
If ne > 0 And na > 0 Then nachmGer = Application.WorksheetFunction.Floor(ne * 24, ",25") _
- Application.WorksheetFunction.Ceiling(na * 24, ",25")
arbdauger = vormGer + nachmGer
End Function
Danke für die Hilfe.
Gruß
mike49