Sub ZeilenLoeschen()
Dim c As Range
For Each c In Range(Cells(1, 1), Cells(Cells(Rows.Count, 1). _
  End(xlUp).Row, 1)).Cells
  If Len(c.Text) > 5 Then
    c.EntireRow.ClearContents ' nur Inhalte löschen
    ' c.EntireRow.Delete ' komplette Zeile löschen
  End If
Next c
End Sub