hat jemand eine Idee, wie ich in einer unendlich langen Excel Tabelle mit 7 Spalten automatisch alle Zeilen finde, die nur Nullen enthalten und diese Zeilen ebenfalls automatisch komplett gelöscht werden?
Vielen Dank und GRüße,
Danikah
in einer unendlich langen Excel Tabelle
kann gar nicht sein. XL2003 hat nur 65536 Zeilen.
Hilfsspalte, Summe über die Zeile, nach 0 filtern und dann löschen.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Sub NullZeilen_löschen() 'wenn Null in selektierten Spalten, ganze Zeile delete
Dim i As Integer, j As Integer, z As Integer
For i = Cells(Cells.Rows.Count, Selection.Column).End(xlUp).Row To 1 Step -1
z = 0
For j = 1 To 7
If Cells(i, j) 0 Then z = z + 1
Next
If z = 0 Then Rows(i).Delete
Next
End Sub
Gruss Walburga