Es soll das Wort "Bemerkungen" in Spalte A gesucht werden und von dort bis Zeile 50 alle Zeile löschen. Das ganze soll über alle Tabellenblätter laufen.
Problem bei meinem Code ist, dass nicht in jedem Tabellenblatt das Wort "Bemerkungen" vorkommt und das Makro abgebrochen wird :(
Wie immer vielen Dank!für eure Unterstützung
Sub Loeschen()
Dim Fundzeile As Long
Do
Fundzeile = Columns(1).Cells.Find("Bemerkungen", LookAt:=xlWhole).Row - 1
Rows(Fundzeile & ":50").EntireRow.Delete
If ActiveSheet.Index <> Sheets.Count Then
ActiveSheet.Next.Select
Else
Exit Do
End If
Loop
End Sub
|