mit Punkt i.O siehe hier
folgender Versuch funkt nicht mit Lerschlag (Space)
Dim d As Range
For Each d In Range("A1:d400")
d.Value = Application.Substitute(d.Value, " ", "")
Next
vermutlich nur eine Kleinigkeit
DANKE gruss geri
folgender Versuch funkt nicht mit Lerschlag (Space)
Dim d As Range
For Each d In Range("A1:d400")
d.Value = Application.Substitute(d.Value, " ", "")
Next
vermutlich nur eine Kleinigkeit
DANKE gruss geri
Bei mir hat es funktioniert (Excel 97)
Gruss
Chris
2 Vorschläge.
1. Die Funktion suche / ersetzen nutzen
2. den String einzeln nach Leer suchen und etfernen.
instr(1,"Hallo hier sind 4 Leerzeichen", " ")
damit kriegst du die stelle des Leerzeichens und danach mußt dein
Text auseinandernehmen und ohne diesen Leerzeichen zusammen bauen.
Viel Spaß damit.
Ich hoffe das ich dir damit helfen konnte.
MfG
Walerij Riffel
Gruss
Heinz
bei mir hat Dein code auch funktioniert, dabei kam mir die idee
warum Du die arbeit machen sollst. zwinge den user zur richtigen
eingabe. folgende loesung durch Andreas.
https://www.herber.de/forum/messages/166165.html
gruss thomas