t = 1       'Zeilen mit VKz I und S werden gelöscht
            Do
            t = t + 1
            If Cells(t, 16) = "I" Then
            Rows(t).EntireRow.Delete
            ElseIf Cells(t, 16) = "S" Then
            Rows(t).EntireRow.Delete
            End If
 
            Loop Until Cells(t, 1) = ""