Rijen uit tabel verwijderen lukt, maar niet als er formules in zitten

[oceanrace]

Hallo,
Onderstaande code werkt goed om lege rijen uit een tabel te verwijderen.
Echter, niet als er formules in staan die geen uitkomst hebben (dus geen waarde).
Is het mogelijk om alle lege rijen, met formules te verwijderen?

Sub DeleteTheEmptyRows()
Dim iCntr As Long
Dim rng As Range
Set rng = ActiveSheet.ListObjects("Bezwarenoverzicht").Range
For iCntr = rng.Row + rng.Rows.Count - 1 To rng.Row Step -1
If Application.WorksheetFunction.CountA(Rows(iCntr)) = 0 Then Rows(iCntr).EntireRow.Delete
Next
End Sub

 

[VenA]

Een tabel bevat in mijn optiek geen rijen die leeg zijn. Dus kan je even een voorbeeld plaatsen van deze tabel?

 

[HSV]

Hallo,

Sub hsv()
Dim j As Long
With ActiveSheet.ListObjects(1)
 For j = .ListRows.Count To 2 Step -1
  If Application.CountBlank(.ListRows(j).Range) = .ListColumns.Count Then .ListRows(j).Range.Delete
 Next j
End With
End Sub

 

[oceanrace]

Bedankt Harry, het werkt.

Ik had zelf deze gevonden, maar die van jou ga ik gebruiken.

Sub DeleteTheEmptyRowsWithFormula()
    Dim i As Integer, x, y
    With ActiveSheet.ListObjects("Bezwarenoverzicht").Range
        x = .Range("a21").CurrentRegion.Rows.Count
        For i = x To 1 Step -1
            .Cells(i, 256).FormulaR1C1 = _
            "= SumProduct((len(rc[-255]:rc[-1])>0)*(rc[-255]:rc[-1]<>0))"
            y = .Cells(i, 256).Value
            If y = 0 Then
                .Rows(i).Delete
                i = i
            End If
        Next
        .Columns(256).ClearContents
    End With
End Sub