leerzeichen

Vielen Dank für Eure Hilfe

Sub Glaetten()
With ActiveSheet.UsedRange
.Cells.Value = Application.Trim(.Cells.Value)
End With
End Sub

Sub LeerZeichenEntfernen()
Dim c As Range
Dim acC As Integer
Dim laR As Long
acC = ActiveCell.Column
laR = Cells(Rows.Count, acC).End(xlUp).Row
For Each c In ActiveSheet.Range(Cells(1, acC), Cells(laR, acC))
c.Value = WorksheetFunction.Trim(c.Value)
Next
End Sub