Zeilen mit Null löschen
26.07.2015 18:44:20
lau
bräuchte ein Makro, der im Datenblatt 10 und Spalte E alle Zellen absucht und diejenigen die eine Null ausweisen, da soll die Zeile komplett gelöscht werden.
unteres Makro hängt sich auf und löscht nichts. Die Datei ist sehr groß.
Die Arbeitsmappe hesst "Portfolio" und das Makro habe ich im Modul 1 abgelegt.
Sub Zeilen_loeschen()
Dim loeschen As Double
For loeschen = Worksheets(10).Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
If Cells(loeschen, 1).Value = "" Then
Rows(loeschen).Delete
End If
Next loeschen
End Sub
Hat jmd. eine Idee warum das Makro nicht läuft?
Viele Grüße