Viele Zeilen löschen wenn leer

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Schau mal hier
Eine hochgeladene Arbeitsmappe erhöht die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese hoch.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, solltest du diese Daten anonymisieren bzw. pseudonymisieren.
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms)
Gruß Hajo

Sub Leerzeilen_loeschen3() Dim LoI As Long Dim RaZeile As Range Dim rc%, rb% On Error Resume Next For LoI = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row rb = 0 rb = Rows(LoI).SpecialCells(xlCellTypeBlanks).Count rc = Rows(LoI).SpecialCells(xlCellTypeLastCell).Column If rb = rc 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

With ActiveSheet.UsedRange With .Columns(.Columns.Count + 1) .FormulaR1C1 = "=IF(Count(RC3:RC18)=0,0,Row())" .Cells(1, 1).Value = 0 .EntireRow.RemoveDuplicates .column, xlno .ClearContents end with End with

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

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Viele Zeilen löschen wenn leer

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread