Office: (Office 2010) Zeilenwerte auf Bedingung überprüfen und löschen

Hallooo,

ich habe 9200 Zeilen gefüllt mit Daten vorliegen und möchte die Spalten (L:AW) auf den Wert "0" üeberprüfen und sobald jede Zelle in der selben Zeile den Wert Null enthält, soll dieser gelöscht werden.

Habe meinen Code fur die Spalten L und M geschrieben, der funktioniert aber nicht ganz, weil die entsprechende Zeile nicht gelöscht wird.

Code:

Option Explicit

Sub Delete()

Dim i As Integer

      Worksheets("Overview list").Activate

        i = 9200

        Do

            If Cells(i, 12).Value = 0 And Cells(i, 13).Value = 0 Then
           
                 ActiveSheet.Rows(i).Delete
                    
            End If
           
         i = i - 1

        Loop Until i = 1
           
End Sub

 

Hallo,

falls du mit "Löschen" einer Zeile meinst, dass alle nachfolgenden Zeilen des Arbeitsblattes um 1 Zeile nach oben verschoben werden, dann müsste folgendes Makro funktionieren.
Ich habe die Makro-SUB umbenannt, denn der Name "Delete()" der SUB kann leicht zu Namenskollisionen mit bereits in Excel vorhandenen Prozeduren gleichen Namens führen.

Code:

Option Explicit

Sub NullZeilen_Entferner()

   Dim I As Integer, J As Integer
   
   With Worksheets("Overview list")
   
      For I = 9200 To 1 Step -1
         For J = 12 To 49
            If .Cells(I, J).Value Then Exit For
         Next J
         If J = 50 Then .Rows(I).Delete xlShiftUp
      Next I
        
   End With
   
End Sub