Hallo Helpers en Oplossers
Ik heb een stukje code die aan het eind van het jaar, wanneer ik mijn ritboekhouding wil klaarmaken voor het volgende jaar, van een tabel de rijen verwijderd. Dit lukt ook wel met onderstaande code maar duurt bij bijna 5000 rijen héééééééééééél lang
Mijn vraag is, is dit te versnellen?
With ws.ListObjects("Tabel11")
If .ListRows.Count > 1 Then
q = .ListRows.Count
For i = 1 To q
.ListRows(1).Delete
Next i
End If
End With
Alvast al weer bedankt voor uw aandacht