Delete rows even if they are header rows?

[td_excelforum]

I'm trying to delete some row before the occurence of a word ('datum'). In some sheets there are headers in the first row (classic Column1 etc) that I want to delete if they do not contain this word ('datum').

I'm failing in these sheets as headers are not deletable. Any ideas?

  Set fRg = Cells.Find(What:="datum", LookAt:=xlWhole)
     
        If Not fRg Is Nothing Then
            If fRg.Row <> 1 Then
                    Range("A1", fRg.Offset(-1)).EntireRow.Delete
            Else
            End If
        Else
        End If

 

[6StringJazzer]

The header rows you are talking about must be the header of a Table. The header row of a table cannot be deleted. Why would you want to delete that? The only way to delete a table header row is to convert the table back to a range, delete the row, then convert back to a table. That is a little tricky if you have a cell address, but don't already know what table it is. But that could cause all kinds of other problems depending on how you use those tables.