Zeilen löschen, wenn diese bestimmte Kriterien nicht erfüllen

Option Explicit
Option Compare Text

Const SheetNamen = "Tabelle1"  
Const SuchSpalte = "E"  

Const Suchtext = "Clienttest, Clientv3, EUC, EUC_I_IS, EUC_CU_SFS"  

Sub DeleteLine()
    Dim Text As Variant, Found As Boolean, i As Long, EndLine As Long, s As Integer
    
    Sheets(SheetNamen).Activate
    
    EndLine = Cells(Rows.Count, SuchSpalte).End(xlUp).Row
    
    Text = Split(Suchtext, ",")  
    
    Application.ScreenUpdating = False

    For i = 1 To EndLine
        If i > EndLine Then Exit For
        Found = False
        For s = 0 To UBound(Text)
            If Cells(i, SuchSpalte) Like Trim(Text(s)) Then Found = True:  Exit For
        Next
        If Found = False Then Rows(i).Delete:  i = i - 1:  EndLine = EndLine - 1
    Next
    Application.ScreenUpdating = True
End Sub