Makro
07.12.2004 15:04:29
Martin
Ich habe volgendes Prob mit diesem Code
Sub LeerZeilenKiller()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 2).End(xlUp).Row
For i = laR To 5 Step -1
If Cells(i, 2).Value = "" Then
Cells(i, 1).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
Er funzt wirklich gut aber ich möcht noch etwas zusästlich haben.
Es sollen nur dann die Zeilen gelöscht werden wenn auch nichts in Spalte E Steht
Bitte um eure hilfe
Gruß martin
Anzeige