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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen