Zeilen löschen wenn
25.10.2007 08:18:00
volker
Ich möchte dass nur Zeilen gelöscht werden wenn in Spalte A der jeweiligen Zeile kein Wert drin steht (da stehen Formeln drin, sollte das Ergebnis 0 sein LÖSCHEN)
Sub ttt()
Dim wsMy As Worksheet
For Each wsMy In Worksheets
If wsMy.Name Like "BL_*" Then wsMy.Rows("8:65536").Clear
Next
End Sub
Danke Gruss volker
Anzeige