Thema: Bereich löschen | Herbers Excel-Forum

Liebe vba-Experten,
ich benötige Hilfe.
Meine Tabelle (Beispiel
https://www.herber.de/bbs/user/66155.xls
)
hat mehrere zusammengehörige Zeilenblöcke, gefolgt von einer leeren Trennzeile.
Nur wenn alle Werte in einem Zeilenblock = Null sind, soll der komplette Block mit der Trennzeile gelöscht werden
(in der Beispieldatei die gelb markierten Bereiche).
Vielen Dank im Voraus für Ihre Hilfe.
Gruß,
Stefan

Hallo,

Sub tt()
Dim i As Long
For i = 38 To 8 Step -3
If Application.Sum(Cells(i, 3).Resize(2, 7)) = 0 Then _
Cells(i, 3).Resize(3).EntireRow.Delete
Next
End Sub

Gruß
Rudi

Hallo Rudi,
herzlichen Dank für die schnelle Hilfe.
Jetzt habe ich noch die Bitte, das Makro für eine beliebig lange Tabelle umzuschreiben, wenn also die letzte besetzte Zeile nicht bekannt ist.
Wie muss ich dann den Startwert der Schleife umformulieren?
Nochmals danke im Voraus.
Gruß,
Stefan

Hallo,
for i=cells(rows.count,1).end(xlup).row-4 to 8 Step -3
Gruß
Rudi

Hallo Rudi,
ganz herzlichen Dank!
Gruß,
Stefan