Zellen Addieren

[Elex]

Hallo Kaywarri124

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 Sub

Gruß Elex