17.09.2018, 09:33
Hallo Kaywarri124
Versuch es mit dem Code.
Gruß Elex
Versuch es mit dem Code.
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Stunden, SthT, StVf, StGr As Long
Dim hTage, i, n As Long
Dim Werte As Variant
Werte = Range("D1:O" & Cells(Rows.Count, 1).End(xlUp).Row).Value
SthT = 35 * 60 '35h zum Vergleichen in min Ausgeben -> keine Nachkommastellen
StVf = 5 * 60
StGr = 105 * 60
For i = 2 To UBound(Werte, 1) Step 2
hTage = 0
Stunden = 0
For n = 1 To 12
If Werte(i, n) = "" Then Exit For
Stunden = Stunden + Werte(i, n) * 1440 'Tabellenwerte in Min
If Stunden > StGr Then Stunden = StGr
If Stunden <= StVf Then Stunden = 0
If Stunden - SthT >= 0 Then
Stunden = Stunden - SthT
hTage = hTage + 1
End If
Next n
Range("Q" & i).Value = hTage
Range("R" & i).Value = Stunden / 1440
Next i
Cancel = True
End SubGruß Elex