rijen verwijderen met vba

[Joske2000]

Hallo,

Ik probeer met onderstaand code een aantal rijen te verwijderen uit een tabel, maar er gebeurt niks. Zie ook voorbeeldbestandje
Iemand enig idee

Sub CopiePakbonUpdaten()
'    Application.ScreenUpdating = False
    Dim r As Range
    For Each r In Worksheets("Sales").Range("a:a") ' Dit is de range waar de pakbonnummers staan
        If r.Value = [a1] Then
            r.EntireRow.Delete ' Verwijderen van de rij
        End If
    Next
 '   Application.ScreenUpdating = True
End Sub

Thanks,

Joske

 

[Joske2000]

Probleem is opgelost !

Ben nochtans al een tijdje wakker,
als de waarden niet overeenkomen kan er uiteraard niks gebeuren !

Sorry jongens

Joske :thumb: