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

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

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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige