Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen löschen

Forumthread: Zeilen löschen

Zeilen löschen
28.03.2006 11:07:21
Basti
Guten Morgen,
ich hab ein kleines Problem mit Excel. Es geht darum, dass ich eine Tabelle hab in der mehrere Bereiche (Zeilen) nicht benötigt werden. Leider ist die Tabelle zu groß und wird öfters mal erneuert, dass ein manuelles löschen zu aufwendig ist.
Hoffe es kann mir jemand bei dem Makro helfen, da ich mich damit nicht so gut auskenne. Das Makro sollte Spalte B auf 2 nachfolgende Leerzellen prüfen und dann die folgenden 10 Zeilen (von der ersten Leerzeile an) löschen. Danke für die Hilfe.
Grüße Basti
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen
28.03.2006 11:16:14
Andi
Hi,
probier mal dies hier:

Sub loeschen()
Dim zeile As Long
Dim zelle_leer As Boolean
zelle_leer = False
For zeile = Range("B65536").End(xlUp).Row To 1 Step -1
If Cells(zeile, 2).Value = "" Then
Select Case zelle_leer
Case False
zelle_leer = True
Case True
Rows(zeile & ":" & zeile + 9).Delete
zelle_leer = False
End Select
Else
zelle_leer = False
End If
Next zeile
End Sub

Schönen Gruß,
Andi
Anzeige
ich nehme an...
29.03.2006 10:43:57
Andi
... dies war die Lösung?
Rückmeldung wäre nett gewesen...
Schönen Gruß,
Andi
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige