...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
auch
Sub Zeilenumbrüche() 'beheben
Worksheets("Daten").Range("A1:A5000").Select
Selection.Replace chr(13), ""
End Sub
hat nicht geklappt. Immer noch da ?! und die Funktion =Code(A1) auf das letzte Zeichen zeigt mit 13 an.Bitte um schnelle Hilfe, muss noch heut mit der Liste fertig werden...
Vielen Dank !
Gruß
Kay