Hilfe bei Makroerweiterung | HERBERS Excel Forum

Hallo zusammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function arbdau(va, ve, na, ne) Dim vorm As Date Dim nachm As Date 'Anfangszeit auf TimeSerial(9, 15, 0) Then va = TimeSerial(9, 15, 0) 'Ende Anfangszeit 'Anfangszeit auf TimeSerial(13, 0, 0) Then na = TimeSerial(13, 0, 0) 'Ende Anfangszeit If ve > 0 And va > 0 Then vorm = ve - va If ne > 0 And na > 0 Then nachm = ne - na arbdau = vorm + nachm End Function

Function arbdau(va, ve, na, ne) Dim vorm As Date Dim nachm As Date Application.Volatile If ActiveSheet.Name = "Jan" Or _ ActiveSheet.Name = "Feb" Or _ ActiveSheet.Name = "Mär" Then '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 arbdau(va, ve, na, ne) Dim vorm As Date Dim nachm As Date Dim ArbBegVM as Date 'Arbeitsbeginn Vormittag Select Case ActiveSheet.Name Case "Jan", "Feb", "Mrz" ArbBegVM = 9/24 Case else ArbBegVM = 9.25/24 end Select 'Anfangszeit auf If va 'Ende Anfangszeit '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

Beliebteste Forumthreads (12 Monate)