Clear the whole Row if on the column "A" a certain text is found

[Jangorage]

Hey guys,

I have a problem in clearing the whole row when on Column "A" a certain text, in this case "Planungsbedingung" is written.

I did it like this:

Dim cell As Range
For Each cell In Intersect(Columns("A:GA"), ActiveSheet.UsedRange)
  If cell = "Planungsbedingung" Then
    cell = "Planungsbedingung"
    cell.Offset(0, 1).ClearContents
  End If
Next cell

the problem is it just clears 1 cell and I dont know how I can make it so that the whole row is cleared when he finds that Text on column "A"

How do I select the whole Row with Offset? or do I need another command?

[nathansav]

cell.Offset(0, 1).row.entirerow.delete

will delete

range(cell.Offset(0, 1), cell.Offset(x, 1)).clearcontents

where x is the column number of the right hand column

[Jangorage]

It worked, thank you so much :D

[nathansav]

Knew it would Not a problem, enjoy!

[AB33]

Why do you need to use offset if the aim is to clear the entire row?

  cell.EntireRow.ClearContents

[Jangorage]

Oh yeah you are right I dont need Offset, it works either way, thank you though learned something again

[nathansav]

I put the offset in, to enable you to just clear say a:e if needed.

Enjoy