ist es bei dieser formel möglich nicht nur die Zellen auszublenden sondern ganz zu löschen?
Sub letzter_Wert()
Dim i As Long
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2).Value = Cells(i, 2).Offset(1, 0).Value Then Cells(i, 2).EntireRow.Delete _
_
= True
Next
Application.ScreenUpdating = True
End Sub
Gruß