xlAtom Nr. 000006

19.08.2007 07:15:12 | Zeilen mit Nullwerten löschen

Mit dem folgenden Makro werden alle Zeilen, bei denen der Wert in Spalte 7 Null ist, gelöscht:

Sub Formeln()
    Dim i As Long
    For i = Cells(50, 7).End(xlUp).Row To 6 Step -1
        If Cells(i, 7).Value = 0 Then
            Rows(i).Delete
        End If
    Next i
End Sub

Gruppe: VBA/Makros | Ideengeber: Beate Schmitz | Name: Hans W. Herber