Gruppe
Allgemein
Problem
Die überflüssigen Leerzeichen in einem vorgegebenen Bereich sollen gelöscht werden.
StandardModule: Modul1
Sub KillSpaces()
Dim rng As Range
For Each rng In ActiveSheet.UsedRange
rng.Value = WorksheetFunction.Trim(rng.Value)
Next rng
End Sub