Makro leere zellen such Zeile löschen
29.09.2005 15:17:25
Achim
Mein Makro sucht nach leere Cellen im Bereich B2:B3000 und löscht die jeweiligen Zeilen. Nun befindet sich eine Formel (Textformel "Links) in den Zellen. Von daher löscht meim Makro gar nichts.:-(
Wer kann das Makro so umschreiben das es auch funzt wenn eine Formel in den Zellen vorhanden ist?
Sub LeereZellenLöschen()
Sheets("Sheet1").Select
Range("A2:A500").Select
Dim i As Long
For i = Selection.Cells(Selection.Cells.Count).Row To 1 Step -1
If ActiveSheet.Cells(i, 1).Value = "" Then
Rows(i).Delete
End If
Next i
End Sub
Danke Gruß achim H.