Leerzeilen löschen
Frank
Folgenden Code benutze ich um Leerzeilen zu löschen!
Dim i As Integer
Worksheets(1).Activate
For i = Selection.Cells(Selection.Cells.Count).Row _
To Selection.Cells(1).Row Step -1
If Cells(i, "C").Value = 0 Or _
IsEmpty(Cells(i, "C").Value) Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
Also wenn in einer Zelle der Spalte C kein Eintrag ist, dann wird die Zeile gelöscht, nun soll aber auch noch Spalte A abgecheckt werden. Nur wenn Zellen in Spalte A und C leer sind, dann löschen!!!
Wie muss ich meinen Code erweitern?
Danke euch allen im Vorraus!!!
Gruß Frank H.
Anzeige