Nettoarbeitszeit sehr Komplex
13.09.2008 19:23:46
Heinz
Ich habe ein sehr Komplexes Problem mit der Nettoarbeitszeit.
Im unteren Makro wird mir an einem Freitag wenn dieser kein Feiertag ist, in den Spalten C8:C38, H8:H38, N8:N38 "PT/Woche" eingefügt. So weit so gut.
Nun müsste ich in der Spalte nebenan wo "PT/Woche" steht die Wochenarbeitszeit eintragen.
Diese Arbeitszeit ist wieder abhängig von Zelle R4.
Wenn in R4 eine 1 steht dann ist die Wochenarbeitszeit 7,6 Stunden Montag bis Freitag das macht eine Tagesarbeitszeit von 1,52 aus.
Wenn in R4 eine 2 steht dann wäre die W-Arbeitszeit 11,4 Stunden - je Tag 2,28 Std.
Wenn in R4 eine 3 steht dann wäre die W-Arbeitszeit 15,2 Stunden - je Tag 3,04 Std.
Z.B.
In R4 steht 2 und in H29 steht "PT/Woche" dann würde in I29 wenn in dieser Woche kein Feiertag ist,
15,2 reingehören,
Habe die Datei zum besseren Verständniss mal hochgeladen.
Könnte mir dazu bitte jemand weiterhelfen ?
Danke & Gruß
Heinz
https://www.herber.de/bbs/user/55361.xls
Option Explicit
Private Sub worksheet_change(ByVal Target As Range)
Dim rc As Range
Const tThisRange = "C8:C38,H8:H38,N8:N38"
If Target.Address "$C$5" Then Exit Sub
ActiveSheet.Unprotect
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.Name = _
Format(Range("C5"), "mmm.yy") & " bis " & Format(Range("N5"), "mmm.yy")
Range("B2") = Fix(Month(Range("C5")) / 4) + 1 & ". Quartal"
Range("D8:D38,I8:I38,O8:O38").ClearContents
Range(tThisRange).Formula = "=TRIM(IF((5-WEEKDAY(A8,2))-SUMPRODUCT(" _
& "(feiertagsliste>=A8)*(feiertagsliste