Hi Daniel
kann man bei diesem Script die gelben Ergebnisse gleich aufrunden lassen?
also von z.B. 1374 zu 1370 oder 1378 zu 1380

https://www.herber.de/bbs/user/173098.xlsx

Sub Laengen()

For i = 1 To 10000
If Cells(i, 4) = "" Then
Cells(i, 4) = Cells(i - 1, 4)
End If
If Cells(i, 1) = "" Then
Exit For
End If
Next

Dim rng As Range
For Each rng In Columns(9).SpecialCells(xlCellTypeConstants, 1).Areas
With rng(1).Offset(rng.Count)
.Formula = "=Max(" & rng.Address(0, 0) & ")"
.Interior.Color = vbYellow
End With
Next

End Sub