Wie kann ich Zeilen im Excel löschen

Question

Ich habe eine Excel Tabelle mit 31'00 Zeilen. In jeder so ca alle 30 Zeilen sollte ich 6 Zeilen löschen. Bei den Zeilen die ich löschen sollte ist im Spalte J der Vermerk xyz . Es sollte diese Zeile gelöscht werden und dann noch die nächsten 5.

Ich kenne mich mit VB nicht aus, ich kann lediglich Makros aufzeichenen und da komme ich nciht weiter.

Hat irgendwer eine Lösung. Wäre echt Super, sonst sehe ich mcih am Wochenende mauell Zeilen löschen

Vielen Dank im Voraus
Silvia

Answer 1

Hallo Silvia,

probier mal den folgenden Code:

Sub löschen()
Dim i As Long

For i = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

If Cells(i, 10).Value = "xyz" Then Range(Cells(i, 1), Cells(i + 5, 1)).EntireRow.Delete

Next i

End Sub

Test das Makro aber erst mal in einer Kopie deiner Arbeitsmappe.

Gruß

M.O.

Answer 2

Genial hat einwandfrei funktioniert, das Wochenende ist gerettet.

Danke