mit diesem Teil meines Codes lösche u.a. die Leerzeichen aus der Tabelle:
With ActiveSheet
With Range(Cells(1, 1), Cells(lngA, LCol))
.EntireColumn.NumberFormat = "General"
.Replace What:=" ", Replacement:=""
.Replace What:="FALSCH", Replacement:=""
End With
End With
Jetzt hätte ich es gerne so geändert, dass Leerzeichen innerhalb von Texten --- also z.B. wenn Vor- und Nachname innerhalb einer (1) Zelle stehen --- erhalten bleiben, d.h. nur Leerzeichen gelöscht werden, die am Anfang ode Ende der Zelle stehen.
Besten Dank für die Hilfe,
Servus, Walter