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
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
Bis später,
Karin
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
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