Zellinhalt rechts ab bestimmten Zeichen löschen?

Sub ZEntfernen()
Dim start As Long, letzte As Long, lngZ As Long, strW As String, rngD As Range
Application.ScreenUpdating = False          ' nach dem Test aktivieren
start = 3
letzte = ActiveSheet.Range("B65536").End(xlUp).Row
For lngZ = letzte To start Step -1
strW = Cells(lngZ, 2).Value
If strW Like "*?l=" Then Rows(lngZ).Delete 'hier stimmt es noch nicht :-)
Next
Application.ScreenUpdating = True
End Sub