Loop - Shorten my code

Hello,
i have got several stock data sets and would like to delete automatically every date with an volume of zero.
I have for every stock another loop, is it possible to shorten this? By now I have only 3 stocks that makes it easy to handle, but i assume that it will be confusing with more stocks as I have to add another loop for every stock.

The code is part of an portfolio optimization code, I'm starting to set up...

Dim i As Integer, j As Integer, k As Integer
    Dim letzteZeileBMW As Long:    letzteZeileBMW = wsBMW.Cells(2, 6).End(xlDown).Row
    Dim lZBASF As Long:            lZBASF = wsBASF.Cells(2, 6).End(xlDown).Row
    Dim lZRWE As Long:             lZRWE = wsRWE.Cells(2, 6).End(xlDown).Row
     
    For i = 1 To letzteZeileBMW
        With wsBMW
        If .Cells(i, 6) = "0" Then
        .Rows(i).Delete
        End If
        End With
    Next i
     
    For j = 1 To lZBASF
        With wsBASF
        If .Cells(j, 6) = "0" Then
        .Rows(j).Delete
        End If
        End With
    Next j
     
    For k = 1 To lZRWE
        With wsRWE
        If .Cells(k, 6) = "0" Then
        .Rows(k).Delete
        End If
        End With
    Next k

Thank you very much for your help!

Something like:

for each ws in activeworkbook.sheets
  for i = ws.cells(2,6).end(xldown).row to 1
    if ws.cells(i,6) = "0" then .rows(i).delete
  next i
next ws

replace activeworkbook.sheets with the collection of sheets you want to apply it to or put a test in to skip certain sheets.

Note - I changed your code to loop backwards, so that it won't skip rows (i.e. if you delete row 5, row 6 becomes row 5, but the i variable will still become row 6 the next time, so what was row 6 is effectively skipped

It is possible to shorten. Are wsBMW, wsBASF etc are worksheets? Can you upload the workbook?

Hello,

thanks for your quick replys.
Here is my workbook:http://www.herber.de/bbs/user/91168.xlsm

sorry, it should be ws.rows(I).delete

Well,
thanks for your help! My code is running but it's not working

Option Explicit
Option Base 1

Sub 1()
    
    Dim wsBMW As Worksheet:     Set wsBMW = Worksheets("BMW")
    Dim wsBASF As Worksheet:    Set wsBASF = Worksheets("BASF")
    Dim wsRWE As Worksheet:     Set wsRWE = Worksheets("RWE")
    
    Dim ws As Worksheet
   
    Dim letzteZeileBMW As Long:    letzteZeileBMW = wsBMW.Cells(2, 6).End(xlDown).Row
    Dim lZBASF As Long:            lZBASF = wsBASF.Cells(2, 6).End(xlDown).Row
    Dim lZRWE As Long:             lZRWE = wsRWE.Cells(2, 6).End(xlDown).Row
    
       Dim i As Integer
 
For Each ws In ActiveWorkbook.Sheets
  For i = ws.Cells(2, 6).End(xlDown).Row To 1
    If ws.Cells(i, 6) = "0" Then ws.Rows(i).Delete
  Next i
Next ws
   
       
End Sub

I tried it, but it doesn't delete anything in my Excel-Worksheet. I have attached my file: http://www.herber.de/bbs/user/91195.xlsm

Thank you very much for your help!