Das Forum ist aktuell sporadisch nicht erreichbar - wir arbeiten dran. Laut Fehlermeldung Service Unavailable oder Internal Server Error, wir sind allerdings im Hosting ...
x
Dieser Code klappt auch nicht: Sub RemoveCarriage() 'Update 20131216 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng Rng.Value = Replace(Rng.Value, Chr(10), "") Next End Sub
Probier mal die Zeichen vor dem Umbruch zu entfernen und dann mit Code() dir den "unsichtbaren Rest" anzeigen zu lassen. Wenn da was anderes steht als 32 ist es kein Leer- sondern irgendein Sonderzeichen welches durch Glätten() nicht entfernt wird.