Ich bin am verzweifeln!
Ich kopiere Text aus Word in eine Zelle. In der Zelle sind, auf dem ersten Blick, am Anfang und am Ende des Textes Leerzeichen. Bei folgendem Code frage ich das Zeichen ab und als Rückmeldung kommt 32.
Das entspricht auch tatsächlich dem Leerzeichen.
Sub Test1()
MsgBox Asc(Left(Cells(1, 1), 1))
End Sub
Wenn ich nun aber die Leerzeichen entfernen möchte, funktioniert das nicht!?!?!?!?!
Sub Test2()
Cells(1, 1) = Replace(Cells(1, 1), Chr(32), "")
End Sub
Wenn ich in der Bearbeitungsleiste mit den Pfeiltasten nach rechts gehe, fällt mir auf, dass ein größerer Sprung als beim üblichen Leerzeichen gemacht wird!?!?!
Ich verstehe das nicht und bitte um Hilfe.
Ich möchte, dass diese (Leer-)Zeichen vor und nach dem Text gelöscht werden. In diesem Beispiel vor und nach dem Minuszeichen.
Hier eine Testdatei.
https://www.herber.de/bbs/user/60688.xls
Gruß
Dirk R.