Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Überflüssige Leerzeichen in einem vorgegebenen Bereich löschen

Gruppe

Zeichenfolge

Problem

Die überflüssigen Leerzeichen in einem vorgegebenen Bereich sollen gelöscht werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

Sub KillSpaces()
   Dim rng As Range
   For Each rng In ActiveSheet.UsedRange
      rng.Value = WorksheetFunction.Trim(rng.Value)
   Next rng
End Sub