Zeilenumbruch per VBA killen Chr(13) klappt nicht
KLE
...ich habe eine Liste vieler Kontakte aus Outlook ausgelesen. Bei einigen habe ich nun am Ende des Firmennamens ein "leerzeichen" entdeckt. Bei genauer Prüfung stellte sich heraus, dass es sich dabei um den Code(13) handelt.
Nun wollte ich es per VBA löschen - bei allen Einträgen der Liste. Aber es klappt nicht - und ich weiß nicht warum ?!
Mein Code:
Sub Zeilenumbrüche() 'beheben
Worksheets("Daten").Range("A1:A5000").Select
Selection.Replace vbCrLf, ""
End Sub
Sub Zeilenumbrüche() 'beheben
Worksheets("Daten").Range("A1:A5000").Select
Selection.Replace chr(13), ""
End Sub
Bitte um schnelle Hilfe, muss noch heut mit der Liste fertig werden...
Vielen Dank !
Gruß
Kay