Regel verwijderen obv datum bij activeren tabblad

[JoostHuizing]

Goedemiddag,

Ik heb in een tabblad Urenregistratie regels die ik een jaar na afronden automatisch wil laten verwijderen. Hiervoor gebruik ik een hulpkolom en heb ik vba een code gebouwd om dit te regelen. Hij doet het op zich wel, maar ik krijg wel telkens de melding dat de Methode Delete van klasse Range is mislukt. Als ik op beëindigen klik of ik heb eerst naar de foutmelding gekeken, dan voert hij uiteindelijk wel de actie uit. Maar de melding vind ik wel storend. Heeft iemand een idee waar dit in kan zitten? Hieronder de code en het bestand.

Private Sub Worksheet_Activate()
Dim lRij As Long
Application.ScreenUpdating = False
lRij = Worksheets("Urenregistratie").Range("D" & Rows.Count).End(xlUp).Row
    For Rij = 7 To lRij
        If Worksheets("Urenregistratie").Range("K" & Rij).Value < Date Then
        Worksheets("Urenregistratie").Range("K" & Rij).EntireRow.Select
        Selection.Delete
        End If
    Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Bekijk bijlage Matrix2.xls

Alvast bedankt!

Joost

 

[exhelp]

Hallo Joost,

Kijk eens hier voor een uitgewerkt voorbeeld.
Rijen verwijderen op basis van een bepaalde celwaarde (VBA)