Lijnen verwijderen uit tabel met For Each Next -> Error 1004

Status
Niet open voor verdere reacties.
S

stimmy

Gebruiker
Lid geworden
8 nov 2016
Berichten
33
Ik heb volgende code geschreven om uit een grote tabel lijnen te verwijderen waarvan de weeknummer kleiner is dan een opgegeven nummer (zie voorbeeldfile).

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!
 

Bijlagen

  • Testfile verwijderen lijnen tabel.xlsm
    17,2 KB · Weergaven: 23
Gewoon een beetje spelen met de macrorecorder:

Code: 
Sub M_snb()
  With ListObjects(1)
    .Range.AutoFilter 3, "<" & [G1]
    .DataBodyRange.EntireRow.Delete
    .Range.AutoFilter
  End With
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan