Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema RefEdit
BildScreenshot zu RefEdit RefEdit-Seite mit Beispielarbeitsmappe aufrufen

Bereich löschen | Herbers Excel-Forum


Betrifft: Bereich löschen von: Stefan
Geschrieben am: 25.11.2009 12:39:45

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

  

Betrifft: AW: Bereich löschen von: Rudi Maintaire
Geschrieben am: 25.11.2009 13:12:13

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


  

Betrifft: AW: Bereich löschen von: Stefan
Geschrieben am: 25.11.2009 14:14:36

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


  

Betrifft: AW: Bereich löschen von: Rudi Maintaire
Geschrieben am: 25.11.2009 14:23:37

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

Gruß
Rudi


  

Betrifft: AW: Bereich löschen von: Stefan
Geschrieben am: 25.11.2009 17:08:52

Hallo Rudi,

ganz herzlichen Dank!

Gruß,
Stefan


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