Hallo,
ich möchte gerne ein Makro (Zeilen löschen mit Bedingung) nicht nur in einem Tabellenblatt, sondern in mehreren Blättern ausführen lassen, krieg ich aber nicht hin.
...
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 'ab Zeile 2
If Cells(i, 2) "diverse Shops" Then Rows(i).Delete ' Kriterium in Spalte B
Next i
...
in etwa so:
...
For Each Blatt In Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12"))
With Blatt
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 2) "diverse Shops" Then Rows(i).Delete
Next i
End With
...
Hilfe wäre nett.
Grüße
Burghard