ich habe eine Excel Liste, in denen Blockweise (1 Spalte, 8 Zeilen) die Inhalte des Zellbereichs aufsummiert werden sollen. Dieser Block soll sich immer eine Zeile nach unten verschieben und NUR die Summe bilden, falls jeder Wert dieser 8 Zellen, größer/gleich einem vorgegebenen Ziel(Bsp. 1,5) liegt.
Mein Ansatz:
Sub BlockFinden()
Dim wsDaten As Worksheet
Dim Level As Double
Dim Tage As Range, BlockEin As Range, BlockAus As Range, Charge As Range
Dim i As Long, j As Long, Zelle As Long
Set wsDaten = tblDaten
With wsDaten
Set Charge = .Range(.Cells(2, 17), .Cells(.Rows.Count, 17).End(xlUp))
With Charge
For i = 2 To .Rows.Count
Set BlockEin = .Range(.Cells(i, j), .Cells(i + 7, j))
If BlockEin.Cells >= "1.5" Then
BlockEin = True
Else: BlockEin = False
End If
If BlockEin = True Then
Level = Sum(BlockEin.Cells.Value)
End If
Next i
End With
End With
End Sub
Vielen Dank für eure Hilfe.Gruß konstantin