Gesamte Zeile löschen Mit Nullen auf alle Arbeitsblätter anwenden

Question

Ich habe VBA-Code, der zum Löschen der gesamten Zeile funktioniert, wenn in einer Zellenspalte ein absoluter Nullwert vorhanden ist, aber ich bin nicht in der Lage herauszufinden, wie der Code aktualisiert werden soll Alle Arbeitsblätter (es gibt 20 Blätter in meiner Arbeitsmappe):

Kann jemand mit Syntax helfen, wie dieser Code aktualisiert wird, um auf alle Arbeitsblätter in der Arbeitsmappe anzuwenden.

Sub IfandthenDelete_Button3_Click() 

Dim lRow As Long 

Dim i As Long 

lRow = 3000 

Application.ScreenUpdating = False 

For i = lRow To 1 Step -1 

    If Cells(i, 1) = 0 Then 

    Rows(i).Delete 
     End If 

Next 

Application.ScreenUpdating = False 
End Sub 

Answer 1

Sie benötigen eine weitere for Schleife dafür.

Sub WorksheetLoop() 
    Dim wsCount As Integer 
    Dim j As Integer 
    Dim lRow As Long 
    Dim i As Long 

    lRow = 3000 
    wsCount = ActiveWorkbook.Worksheets.Count 

    For j = 1 To wsCount 

     For i = lRow To 1 Step -1 
      If ActiveWorkbook.Worksheets(j).Cells(i, 1) = 0 Then 
       ActiveWorkbook.Worksheets(j).Rows(i).Delete 
      End If 
     Next 

    Next j 

End Sub