Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

Leere Zeilen Löschen





Frage

Hallo, gibt es für Excel 2000 einen Befehl oder ein Makro mit der ich alle leeren zeilen löschen kann? Ich erhalten Datensätze in denen jeweils immer eine Zeile zischen den Daten leer ist, um dies weiterzuverarbeiten muß ich jedesmal mühsam alle per Hand löschen. Weiß jemand einen Rat? Danke.

Antwort 1 von Hajo_Zi

Hallo ???,

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

Gruß Hajo

Antwort 2 von Beverly

Hi,

vielleicht hilft dir dieser Code weiter

Sub Spalte_A_Leer()
´   von NoNet
  Columns("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub


Bis später,
Karin

Antwort 3 von Saarbauer

Hallo,

mit "Daten""Autofilter""(Leere)

oder per VBA


Sub Leerzeilen_löschen()
LetzteZeile = Range("S65536").End(xlUp).Row
Range("A1:A" & LetzteZeile).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Wenn Du ein anderes Kriterium als Spalte A haben willst, dann mußt Du die Angaben zur Zeile und Spalte(unterstrichener Bereich) ändern

Gruß

Helmut

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: