Löschen bestimmter Zeilen
21.12.2005 17:05:56
deytschey
ich hatte heute morgen ein ähnliches Problem. Wenn ein Eintrag in der ersten Spalten vorliegt, dann darf diese Zelle nicht gelöscht werden, wenn diese einen Wert enthält dann muss gelöscht werden.
Die Liste sieht nun wie folgt aus:
A
1Eintrag
2(Leer)
3(Leer)
4 Eintrag
Was muss ich an diesem Listening ändern?
Sub Zeilen_loeschen()
' alle Leerzeilen löschen
Dim LoI As Long
Dim RaZeile As Range
For LoI = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Cells(LoI, 2) = "" 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
Vielen Dank für eure Hilfe.
mit freundlichem Gruß
Dietmar Jauch