Viele Zeilen löschen wenn leer

Ben · 2017-10-30T16:33:28+00:00

Hallo zusammen, ich will leere Zeilen (leer im definierten Bereich)löschen lassen. Ist das clever so zu lösen, oder soll ich lieber ausblenden? Ihr seht ja 5000 ist sehr gross und es dauert ewig. Gibt es da eine schnellere, elegantere Lösung? Option Explicit Const von = 1, bis = 5000 Sub leere_Zellen_löschen() Dim z& For z = von To bis If WorksheetFunction.Count(Range("C" & z & ":R" & z)) = 0 Then Rows(z).EntireRow.Delete Next End Sub Danke für eure Hilfe! Grus Ben

Hallo Ben,
schneller geht es, wenn nicht jede Zeile einzeln gelöscht wird.

Sub Leerzeilen_loeschen2()
'   alle Leerzeilen löschen
Dim LoI As Long
Dim RaZeile As Range
For LoI = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Rows(LoI).SpecialCells(xlCellTypeBlanks).Count = ActiveSheet.UsedRange.SpecialCells( _
xlCellTypeLastCell).Column Then
If RaZeile Is Nothing Then
Set RaZeile = Rows(LoI)
Else
Set RaZeile = Union(RaZeile, Rows(LoI))
End If
End If
Next LoI
If Not RaZeile Is Nothing Then RaZeile.Delete
Set RaZeile = Nothing
End Sub

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.

HI
in der R1C1-Addressierungart steht das R für Row/Zeile und das C für Column/Spalte.
Danach folgt die jeweilige Zeilen- oder Spaltennummer.
R1C1 entspricht also einem $A$1 in normaler Addressierungsart
wenn nach dem R keine Zahl folgt, sondern direkt das C, dann bedeutet dies, dass der Zeilenbezug immer auf die gleiche Zeile geht, in welcher auch die Formel steht, dh es ist ein Relativer Zellbezug
das RC3:RC18 entspricht also dem Bezug: $C1:$R1 (hier C und R als Spaltenbuchstaben), wenn man die Formel in A1-Schreibweise in eine Zelle der 1. Zeile schreibt.
Für die Programmierung ist die R1C1-Schreibweise günstiger, weil mit ihr die Formeln bei relativen Zellbezügen immer gleich aussehen, egal in welche Zelle man sie schreibt.
in meinem Code werden alle Zeilen, die gelöscht werden sollen mit 0 markiert und alle die stehten bleiben müssen mit der aktuellen Zeilennummer. Dann kann man die Zeilen schnell und einfach mit dem Duplikate-Entfernen entfernen, da alles gelöscht wird was 0 ist (und weil eine Zeile mit 0 stehen bleiben wird, sorgt man dafür, dass das die Überschriftenzeile ist).
zu meinem Code muss man eigentlich nichts hinzufügen, der ist schon vollständig.
wenn du aber schon die Zeilen mit 1 markiert hatst, die gelöscht werden sollen, dann müsste man noch wissen, wie du die Zeilen markiert hast, die stehten bleiben sollen.
im Idealfall ist das ein Text wie z.B. "" oder "nicht löschen" (es darf nur keine Zahl sein)
wenn du das schon hast, sortierst du deine Liste nach der Hilfsspalte (kann man auch weglassen, aber dann geht das löschen schneller)
dann selektierst du in der Hilfsspalte alle Zellen mit Zahl über die Menüfunktion START - BEARBEITEN - SUCHEN UND AUSWÄHLEN - INHALTE - FORMELN (oder KONSTANTEN) - ZAHLEN.
dann löschst du diese Zellen mit der Option "ganze Zeilen"
das wäre dann das vorgehen nach meiner ersten Methode.
ich würde dir empfehlen, dass alles erstmal "zu Fuss" auszuprobieren, damit du auch genau weißt, was das Makro tun soll.
Wenn das mal steht, kannst du dir bei der erstellung des Makros vom Recorder helfen lassen.
Gruß Daniel

Forumthread: Viele Zeilen löschen wenn leer

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Leere Zeilen in Excel effizient löschen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)