https://www.herber.de/bbs/user/68556.xls
Nun möchte ich aber wenn der letzte Wert kleiner 1400 den vorletzten nehmen! Wie kann ich das im Syntax ändern!
Gruß
'Die letzten Einträge werden ausgewählt
Sub letzter_Wert()
Dim i As Long
Cells.EntireRow.Hidden = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(i, 1).Value = Cells(i, 1).Offset(1, 0).Value Then
If Cells(i + 1, 4)