alle Leerzeichen innerhalb eines String löschen
01.01.2006 18:27:45
Peter
ich möchte alle Leerzeichen innerhalb eines Strings
in allen Zellen löschen.
Wer kann mit einer Lösung weiterhelfen?
Diese möglichkeit entfernt leider nur Leerzeichen am
Anfang bzw. Ende des String
Danke im voraus
Peter
Sub LeerZeichen1()
'entfernt nur Leerzeichen am Anfang und Ende des String
With ActiveSheet.UsedRange
.Cells.Value = Application.Trim(.Cells.Value)
End With
End Sub