Ik heb volgende code geschreven om uit een grote tabel lijnen te verwijderen waarvan de weeknummer kleiner is dan een opgegeven nummer (zie voorbeeldfile).
Dit werkt voor een aantal lijnen, maar dan krijg ik error 1004. Kan iemand me aangeven wat ik hier fout doe?
Alvast bedankt!
Code:
Sub McrVerwijderenLijnen()
Dim oList As ListObject
Dim oRow As ListRow
Set oList = ActiveSheet.ListObjects("Tabel1")
For Each oRow In oList.ListRows
If oRow.Range(, 3).Value < ActiveSheet.Range("G1").Value Then
oRow.Delete
End If
Next
End Sub
Dit werkt voor een aantal lijnen, maar dan krijg ik error 1004. Kan iemand me aangeven wat ik hier fout doe?
Alvast bedankt!