Ich habe mehrere Makros in meiner Arbeitsmappe. Dies ist die einzige, die auf einem 2500-Zeilen-Blatt 3-5 Minuten wirklich langsam zu sein scheint.

Der Zweck ist, wenn die Zeile zwischen dem Datum dtFrom und dtUpTo liegt. Löschen Sie dann die gesamte Zeile.

Ich habe hinzugefügt, um die Berechnungen anzuhalten und fortzusetze

Hat jemand eine Idee, wie man das schneller macht?

Sub DeleteRows
    '--- Pause Calculations:
    Application.Calculation = xlManual
    '----- DELETE ROWS -----
    Dim dtFrom As Date
    Dim dtUpto As Date
    Dim y As Long
    Dim vCont As Variant
    dtFrom = Sheets("Control Panel").Range("D5").Value
    dtUpto = dtFrom + 6
    Sheet1.Range("D1").Value2 = "Scanning, Please wait..."
    With Sheets("Database")
        For y = Sheet5.Cells(Sheet5.Rows.Count, 2).End(xlUp).Row + 1 To 2   Step -1
            vCont = .Cells(y, 1).Value
            If Not IsError(vCont) Then
                If vCont >= dtFrom And vCont <= dtUpto Then
                    .Rows(y).EntireRow.Delete
                End If
            End If
        Next
    End With
    '--- Resume Calculations:
    Application.Calculation = xlAutomatic
   End Sub

Vielen Dank