With
wks
ZeileMax = .UsedRange.Rows.Count
For
Zeile = ZeileMax
To
1
Step
-1
Cells(Zeile, 1).Value = Replace(Cells(Zeile, 1).Value, Chr(13),
""
)
Cells(Zeile, 1).Value = Replace(Cells(Zeile, 1).Value, Chr(10),
""
)
If
Trim(.Cells(Zeile, 1).Value) =
""
Then
.Rows(Zeile).Delete
End
If
Next
Zeile