Dim sb As New System.Text.StringBuilder
With sb
sb.Append(" Titel NOT LIKE 'A%' AND Titel NOT LIKE 'B%' AND Titel NOT LIKE 'C%'" & _
  "AND Titel NOT   ")
sb.Append(" LIKE 'D%' AND Titel NOT LIKE 'E%' AND Titel NOT LIKE 'F%' AND Titel" & _
"NOT LIKE  ")
sb.Append(" 'G%'AND Titel NOT LIKE 'H%'AND Titel NOT LIKE 'I%'AND Titel NOT" & _
"LIKE 'J%'AND Titel  ")
' usw
 Tv2.RowFilter = sb.ToString
End With