Folgezeilen löschen

Bild

Betrifft: Folgezeilen löschen
von: Michael
Geschrieben am: 04.11.2015 12:42:38

Hallo!
Ich suche nach einer Möglichkeit einen Text "xyz" in Spalte A zu suchen und die Zeile die den Wert enthält + die folgenden 11 Zeilen zu löschen.
Grüße
Michael

Bild

Betrifft: AW: Folgezeilen löschen
von: Rudi Maintaire
Geschrieben am: 04.11.2015 12:47:42
Hallo,
columns(1).find("xyz").resize(12).entirerow.delete
Gruß
Rudi

Bild

Betrifft: AW: Folgezeilen löschen
von: Michael
Geschrieben am: 04.11.2015 13:24:31
danke

Bild

Betrifft: AW: Folgezeilen löschen
von: Bernd
Geschrieben am: 04.11.2015 12:48:08
Hi,
Habe es aus dem Netz und etwas verändert probier mal so:

Sub UeberschriftenZeileloeschen()
   Dim lngLetzte As Long, lngZeile As Long
   Application.ScreenUpdating = False
   lngLetzte = IIf(IsEmpty(Range("A" & Rows.Count)), Range("A" & Rows.Count).End(xlUp).Row + 1,  _
Rows.Count)
   For lngZeile = lngLetzte To 1 Step -1
     If Cells(lngZeile, 1) = "xyz" And Cells(lngZeile + 1, 2) = "" And Cells(lngZeile + 1, 3) =  _
"" Then
       Rows(lngZeile).Resize(11).Delete
     End If
   Next
   Application.ScreenUpdating = True
 End Sub
mfg Bernd

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Folgezeilen löschen"