Gruppe
Allgemein
Problem
Wie kann ich auf einen Schlag alle überflüssigen Leerzeichen in einem Arbeitsblatt löschen?
StandardModule: Modul1
Sub Glaetten()
With ActiveSheet.UsedRange
.Cells.Value = Application.Trim(.Cells.Value)
End With
End Sub