Hallo Versuch,

ich denke, der Fehler liegt daran, daß der .find Befehl immer denselben Eintrag findet, vielleicht geht es so

Sub Löschen_der_Zeile()
 
Dim c As Range
Dim Bereich As Range
Dim First As Boolean
Dim nextAddress As String
 
Dim ZeileMax As Long
ZeileMax = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
 
Set Bereich = Range("A1:GJ" & ZeileMax)
First = True
 
For Each cell In Bereich
 
 
Select Case cell.Text
 
 
 
    Case "*FLOTTE"
 
    With ActiveSheet.Range("G1:G" & ZeileMax)
      If First Then
        Set c = .find("*FLOTTE")
        First = False
      Else
        Set c = .FindNext(nextAddress)
      End If
      If c Is Nothing Then Exit Sub
      nextAddress = c.Address
      .Rows(c.Row).EntireRow.Cells(1).ClearContents
      .Rows(c.Row).EntireRow.Cells(9).ClearContents
      .Rows(c.Row).EntireRow.Cells(10).ClearContents
      .Rows(c.Row).EntireRow.Cells(11).ClearContents
      .Rows(c.Row).EntireRow.Cells(12).ClearContents
      .Rows(c.Row).EntireRow.Cells(13).ClearContents
      .Rows(c.Row).EntireRow.Cells(14).ClearContents
      .Rows(c.Row).EntireRow.Cells(15).ClearContents
      .Rows(c.Row).EntireRow.Cells(19).ClearContents
      .Rows(c.Row).EntireRow.Cells(20).ClearContents
      .Rows(c.Row).EntireRow.Cells(21).ClearContents
      .Rows(c.Row).EntireRow.Cells(22).ClearContents
      .Rows(c.Row).EntireRow.Cells(23).ClearContents
      .Rows(c.Row).EntireRow.Cells(24).ClearContents
      .Rows(c.Row).EntireRow.Cells(25).ClearContents
      .Rows(c.Row).EntireRow.Cells(26).ClearContents
      .Rows(c.Row).EntireRow.Cells(27).ClearContents
      .Rows(c.Row).EntireRow.Cells(189).ClearContents
      .Rows(c.Row).EntireRow.Cells(190).ClearContents
      .Rows(c.Row).EntireRow.Cells(191).ClearContents
      .Rows(c.Row).EntireRow.Cells(192).ClearContents
 
      End If
 
      End With
      
      
End Select
 
Next
 
End Sub

Grüße Lutz