Carole importiert Informationen aus einem anderen Programm in Excel, wodurch in einigen Zellen häufig zusätzliche Leerzeichen verbleiben. Die Leerzeichen sind die einzigen Dinge in den Zellen, daher scheinen sie leer zu sein, sind es aber nicht. Carole fragte sich, wie sie diese unnötigen Räume am besten loswerden könnte.

Es gibt verschiedene Ansätze, die Sie verwenden können. Die erste besteht darin, die Funktionen zum Suchen und Ersetzen von Excel zu verwenden. Befolgen Sie diese Schritte:

  1. Drücken Sie Strg + H, um die Registerkarte Ersetzen des Dialogfelds Suchen und Ersetzen anzuzeigen.

  2. Geben Sie im Feld Suchen nach zwei Leerzeichen ein.

  3. Stellen Sie sicher, dass das Feld Ersetzen durch leer ist.

  4. Aktivieren Sie das Kontrollkästchen Gesamten Zelleninhalt abgleichen.

  5. Klicken Sie auf Alle ersetzen.

  6. Klicken Sie weiter auf Alle ersetzen, bis Excel keine Übereinstimmungen mehr findet.

  7. Wiederholen Sie die Schritte 2 bis 5, verwenden Sie diesmal jedoch nur ein Leerzeichen in Schritt 2.

  8. Schließen Sie das Dialogfeld Suchen und Ersetzen.

Eine andere Option ist die Verwendung der Arbeitsblattfunktion Trimmen. Dieser Ansatz ist praktisch, wenn sich die zu ändernden Zellen alle in einem bestimmten Bereich des Arbeitsblatts befinden, z. B. in einer einzelnen Spalte. Wenn Sie beispielsweise die Leerzeichen aus den Zellen in Spalte D entfernen möchten, können Sie die folgende Formel verwenden:

=Trim(D1)

Die Trim-Funktion gibt den Inhalt der Zelle D1 ohne führende oder nachfolgende Leerzeichen zurück. Sie können dann die Ergebnisse dieser Formel kopieren und mit Paste Special die Werte wieder in die gewünschten Zellen einfügen.

Wenn Sie viele Arbeitsblätter haben, die Sie verarbeiten müssen, oder wenn Sie routinemäßig Arbeitsmappen erhalten, die die zusätzlichen Leerzeichen in Zellen enthalten, ist es natürlich besser, ein Makro zu erstellen, mit dem die Leerzeichen entfernt werden können. Der vielleicht schnellste Weg wäre, alle Zellen im Arbeitsblatt zu untersuchen und zusätzliche Leerzeichen zu entfernen:

Sub CleanSheet1()

For Each cell In ActiveSheet.UsedRange         cell.Value = Trim(cell)

Next cell End Sub

Das Makro durchläuft jede Zelle und verwendet die Trimmfunktion, um führende oder nachfolgende Leerzeichen zu entfernen. Dies funktioniert für alle Zellen, kann jedoch abhängig von den Eigenschaften Ihrer Daten zu unerwünschten Ergebnissen führen. Wenn Sie Zellen mit führenden Leerzeichen haben – und diese Leerzeichen möchten -, müssen Sie ein anderes Makro verwenden. Diese Version liefert zufriedenstellendere Ergebnisse:

Sub CleanSheet2()

Dim rCell As Range     Dim rText As Range

Set rText = Cells.SpecialCells( _       xlCellTypeConstants, _       xlTextValues)

For Each rCell In rText         If Trim(rCell.Value) = "" Then             rCell.ClearContents         End If     Next     Set rText = Nothing     Set rCell = Nothing End Sub

Es werden nur die Zellen überprüft, die Konstanten enthalten (die den gesamten Text im Arbeitsblatt enthalten), und anschließend überprüft, ob die Verwendung der Trimmfunktion zu einer leeren Zelle führen würde. Wenn ja, wird die Zelle gelöscht. Wenn die Trimmfunktion nicht zu einer leeren Zelle führen würde, wird keine Änderung an der Zelle vorgenommen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (12471) gilt für Microsoft Excel 2007, 2010, 2013 und 2016.

Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Leerzeichen in Zellen entfernen.