Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1456to1460
1456to1460
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Folgezeilen löschen

Forumthread: Folgezeilen löschen

Folgezeilen löschen
04.11.2015 12:42:38
Michael
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

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Folgezeilen löschen
04.11.2015 12:47:42
Rudi
Hallo,
columns(1).find("xyz").resize(12).entirerow.delete
Gruß
Rudi

AW: Folgezeilen löschen
04.11.2015 13:24:31
Michael
danke

AW: Folgezeilen löschen
04.11.2015 12:48:08
Bernd
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
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige