Zeilen löschen mit Bedingung und ab bestimmter Zeile
17.11.2024 19:15:13
Erwin
mit nachfolgendem Code lösche ich Zeilen, die einen bestimmten Begriff beinhalten.
Sub Text_loeschen()
Dim Suchbegriff As String
Dim Bereich As Range
Suchbegriff = "Summe:"
Do
Set Bereich = ActiveSheet.Cells.Find(Suchbegriff, lookat:=xlWhole)
If Bereich Is Nothing Then
Exit Do
Else
Range(Bereich.Offset(0, 0), Bereich.Offset(0, 0)).EntireRow.Select
Selection.EntireRow.Delete
End If
Loop
End sub
Allerdings löscht dieser Code auch Zeilen, wenn der Begriff in der Überschrift oder in der Beschreibung steht.
Deswegen sollen betimmte Zeilen beim löschen ausgenommen werden.
Wie muss der Code lauten, wenn die Zeilen 1 bis 13 beim löschen nicht berücksichtigt werden sollen?
Grüße - Erwin
Anzeige