PDA

Vollständige Version anzeigen : Zeilen Löschen mit Makro


djell
01.05.2009, 10:11
Hallo,

Was müsste ich machen das mir ein Makro alle Zeilen löscht in denn in Spalte A eine 0 Steht?

hary
01.05.2009, 10:27
Hi
versuch mal so
<pre>
Sub raus()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 1).End(xlUp).Row
For i = laR To 1 Step -1
If Cells(i, 1) = 0 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
</pre>
Gruss hary

jinx
03.05.2009, 09:43
Moin, djell,

sieh Dir doch bitte dazu einmal das Vorgehen von Thomas Ramel unter "Optimierung" des Codes möglich? (http://www.ms-office-forum.net/forum/showpost.php?p=1065774&postcount=4) an...