Selektierte und unterhalb liegende Spalte löschen

Question

Hallo,

ich suche mit einem if-Befehl mach einem gewissen Textausdruck.
Wenn dieser Textausdruck in der definierten Area gefunden wird soll die komplette Spalte und die darunter liegende Spalte gelöscht werden.
Wie ich die Spalte ansich lösche habe ich schon rausbekommen.
Aber nicht wie ich die darunter liegende auch noch mit weg bekomme.

Hier wie ich meine Spalte bislang lösche:

For Each Zelle In Range("A1:A300")
If Zelle.Value = "PRT" Then Zelle.EntireRow.Delete
Next Zelle

Danke

[*][sup]
*Threadedit* 19.06.2009, 16:36:23
Admininfo: Führ bitte Threads nicht fort indem du Weitere eröffnest, und vermeide Mehrfachanfragen. Die Datenbank und User werden es dir danken. Siehe FAQ 2, #3.[/sup]

Answer 1

Bin kein Excelspezialist, aber da sonst keiner antwortet...
funktionieren würde es so:

For Each Zelle In Range("A1:A300")
If Zelle.Value = "PRT" Then
Zelle.Cells(2).EntireRow.Delete
Zelle.EntireRow.Delete
End If
Next Zelle

oder so:

Dim rng As Range
Dim i As Integer
Set rng = Range("A1:A300")

For i = 1 To rng.Count - 1
If rng.Cells(i, 1) = "d" Then
rng.Cells(i + 1, 1).EntireRow.Delete
rng.Cells(i, 1).EntireRow.Delete
End If
Next i