Sub Minutenintervall_v01()
Dim loeschZaehler As Integer
Dim behaltenZaehler As Integer
behaltenZaehler = 2
Application.ScreenUpdating = False
For lngZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
Rows("behaltenZaehler + 1: behaltenZaehler + 59").Delete Shift:=xlUp
behaltenZaehler = behaltenZaehler - 58
Next lngZeile
Application.ScreenUpdating = True
MsgBox "Es wurde auf " & behaltenZaehler & " reduziert"
End Sub