Gruppe
Allgemein
Bereich
Bearbeiten
Thema
Alle überflüssigen Leerzeichen im Arbeitsblatt löschen
Problem
Wie kann ich auf einen Schlag alle überflüssigen Leerzeichen in einem Arbeitsblatt löschen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub Glaetten()
With ActiveSheet.UsedRange
.Cells.Value = Application.Trim(.Cells.Value)
End With
End Sub