Rijen verwijderen in een tabel via loop

[SvenK]

Hallo,

via onderstaande code probeer ik bepaalde rijen te verwijderen in mijn tabel:

Dim Y As Long
 
With Application
    .Calculation = xlCalculationManual
End With
 
With ws_TblZWM19
 
    For Y = 100000 To 1 Step -1
 
        If .Cells(Y, "V") = "#WAARDE!" Then
 
            .Cells(Y, "V").EntireRow.Delete
        End If
 
    Next Y
 
End With
 
With Application
    .Calculation = xlCalculationAutomatic
End With

Ik krijg echter steeds een error met de melding dat het type niet overeenkomt (fout 13) ... ?

War kan hiervan de oorzaak zijn?

Gr,
sven.

 

[E v R]

is ws_TblZWM19 een sheet?

Als je alle rijen met een foutwaarde wilt verwijderen hoeft dat niet middels een loop, maar kun je dit ook in 1 keer doen.

bijv:

 worksheets(1).range("v1:v100000").specialcells(xlcelltypeformulas, xlerrors).entirerow.delete

(tenzij er meer dan 8192(?) verschillende areas zijn.... dacht ik)

 

[SvenK]

Hallo,


ws_tblZWM19 is inderdaad een werkblad
de code "ws_TblZWM19.Range("v1:v100000").SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete"
geeft ook een error en volgens mij heeft dit te maken met het feit dat de data die te vinden is in ws_TblZWM19 in een tabel zit. (TBL_stock)

Of zie ik dit fout?

Maar ook als ik naar de tabel verwijs lukt dit niet (code hieronder)

ws_TblZWM19.Range("=tbl_Stock[Convert Date]").SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete

geeft de volgende fout: methode delete van klasse range mislukt.

Sven.

 

[E v R]

probeer het zo eens:

Range("tbl_Stock[Convert Date]").SpecialCells(xlCellTypeFormulas, xlErrors).Delete

Moeten er natuurlijk wel errors in staan