Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1172to1176
1172to1176
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife läuft endlos

Forumthread: Schleife läuft endlos

Schleife läuft endlos
Josef
Servus zusammen,
hab ein Schleife die sollte mir alle leeren Zeilen zwischen einer definierten Start- und Endzeile löschen.
Die Endzeile selbst soll stehen bleiben auch wenn diese leer ist.
Leider läuft mir die Schleife über die Endzeile hinaus, und ich bekomm nicht raus warum.
Bitte um eure Hilfe.
Beispiel anbei:
https://www.herber.de/bbs/user/71105.xls
Vielen Dank im Voraus.
Gruß
Josef
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Schleife läuft endlos
17.08.2010 16:23:29
EvilRik
Hallo Josef,
auf die Schnelle 

For iZ = iEnde To iAnfang Step -1
If Cells(iZ, 2).Value = "" Then
ActiveSheet.Rows(iZ).EntireRow.Delete Shift:=xlShiftUp
End If
Next iZ

Henrik
AW: Schleife läuft endlos
17.08.2010 16:23:39
Hajo_Zi
Halo Josef,
beim Löschen von Zeilen sollte man von der letzten ´zur ersten laufen, ist einfacher (step -1)

Anzeige
AW: Schleife läuft !nicht mehr! endlos
17.08.2010 16:32:21
Josef
Vielen Dank an euch beide.
Gruß
Josef
AW: Lösung ohne Schleife
17.08.2010 17:12:44
mpb
Hallo Josef,
hier noch eine Lösung ohne Schleife, kompakter, einfacher und schneller:
Sub LeerZeilenLöschen_ohne_Schleife()
Range("Startzeile_Gesamtübersicht", Range("Endzeile_Gesamtübersicht").Offset(-1, 0)). _
SpecialCells(xlCellTypeBlanks).EntireRow.Delete Shift:=xlShiftUp
End Sub
Gruß
Martin
Anzeige
AW: Lösung ohne Schleife - Danke
17.08.2010 17:27:45
Josef
Hallo Martin,
Vielen Dank für deine Lösung.
so einfach kann(könnte) VBA sein.
Gruß
Josef
AW: Lösung ohne
17.08.2010 17:38:47
Gerd
Hallo Josef,
falls mal alles gefüllt ist .....
Sub LeerZeilenLöschen_ohne_Schleife()
On Error Resume Next
Range("Startzeile_Gesamtübersicht", Range("Endzeile_Gesamtübersicht")). _
SpecialCells(xlCellTypeBlanks).EntireRow.Delete Shift:=xlShiftUp
On Error Goto 0
End Sub
Gruß Gerd
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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