Hallo ich möchte eine Messdatei mit rund 50.000 Zeilen von einem Sekundenintervall auf ein Minutenintervall schrumpfen.
Mein Ansatz war bisher:
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
Doch leider funktioniert das nicht ganz und ich komme nicht auf den Fehler.
Da ist mein erstes Makro ;)
Gruß
Markus
|