Rij verwijderen na verstrijken datum

[rkraats]

Ik wil graag dat de hele rij verwijderd wordt zodra de einddatum verstreken is.
Zie bijlage.

Ik had al wel een voorbeeld gevonden waarin de hele rij verwijderd wordt zodra er een einddatum is ingevoerd.
In dit geval moet de einddatum verstreken zijn.

Wie kan mij helpen?

Bekijk bijlage Rij verwijderen.xlsx

 

[Timshel]

Deze macro wordt uitgevoerd bij het openen van het bestand en verwijdert dan alle verouderde records:

Private Sub Workbook_Open()
    Dim Br
    Dim i
    
    Br = Sheets("Blad1").Cells(1).CurrentRegion
    For i = UBound(Br) To 1 Step -1
        If Br(i, 2) < DateValue(Now()) Then Rows(i).Delete
    Next
End Sub

 

[rkraats]

Deze macro wordt uitgevoerd bij het openen van het bestand en verwijdert dan alle verouderde records:

Private Sub Workbook_Open()
    Dim Br
    Dim i
    
    Br = Sheets("Blad1").Cells(1).CurrentRegion
    For i = UBound(Br) To 1 Step -1
        If Br(i, 2) < DateValue(Now()) Then Rows(i).Delete
    Next
End Sub

Bedankt! Werkt prima!

 

[rkraats]

Nog even 1 vraag.
Stel dat er ook data in kolom E staat en alleen deze data verwijderd mag worden als de einddatum in Kolom B gepasseerd is.
Ik had al een aanpassing gemaakt maar hij verwijderd dan de hele kolom.

 

[Timshel]

Begrijp ik het goed dat er nu niet meer hele rijen verwijderd moeten worden maar dat alleen corresponderende cellen in kolom E moeten worden geleegd?

Private Sub Workbook_Open()
    Sheets("Blad1").Range("E" & Join(Filter([transpose(if((Blad1!B2:B1000<today())*(Blad1!B2:B1000<>""),row(2:1000),"~"))], "~", False), ",E")).ClearContents
End Sub

 

[rkraats]

Begrijp ik het goed dat er nu niet meer hele rijen verwijderd moeten worden maar dat alleen corresponderende cellen in kolom E moeten worden geleegd?

Private Sub Workbook_Open()
    Sheets("Blad1").Range("E" & Join(Filter([transpose(if((Blad1!B2:B1000<today())*(Blad1!B2:B1000<>""),row(2:1000),"~"))], "~", False), ",E")).ClearContents
End Sub

Klopt helemaal!
Thanx!