Wie ersetzt man mehrere Leerzeichen in Excel-Zellen durch jeweils ein einzelnes Leerzeichen?
Angenommen, ich habe eine Liste von Textzeichenfolgen, die mehrere Leerzeichen enthalten. Wie kann ich alle mehrfachen Leerzeichen auf einmal durch jeweils ein einzelnes Leerzeichen ersetzen, um die Wörter wie im folgenden Screenshot gezeigt sauber zu trennen – ohne die Leerzeichen einzeln entfernen zu müssen?
Mehrere Leerzeichen durch ein einzelnes Leerzeichen mithilfe einer Formel ersetzen
Mehrere Leerzeichen durch ein einzelnes Leerzeichen mithilfe von Kutools für Excel ersetzen
Mehrere Leerzeichen durch ein einzelnes Leerzeichen mithilfe von VBA-Code ersetzen
Mehrere Leerzeichen durch ein einzelnes Leerzeichen mithilfe einer Formel ersetzen
In Excel reicht die normale Suchen-und-Ersetzen-Funktion möglicherweise nicht aus, um dieses Problem zu lösen. Stattdessen können Sie eine einfache Formel verwenden – so geht’s:
1. Geben Sie diese Formel in eine leere Zelle neben Ihrem Zellwert ein:=TRIM(SUBSTITUTE(A2,CHAR(32),„ ")) – siehe Screenshot:
2. Drücken Sie anschließend die Enter-Taste, um das Ergebnis zu erhalten. Wählen Sie dann Zelle B2 aus und ziehen Sie das Ausfüllkästchen über den Zellbereich, auf den Sie diese Formel anwenden möchten. Alle überflüssigen Leerzeichen wurden nun aus den Textzeichenfolgen entfernt – es bleibt jeweils nur ein einzelnes Leerzeichen zwischen den Wörtern erhalten. Siehe Screenshot:
Mehrere Leerzeichen durch ein einzelnes Leerzeichen mithilfe von Kutools für Excel ersetzen
Falls Sie andere Arten von Leerzeichen entfernen müssen – etwa führende Leerzeichen, abschließende Leerzeichen oder sämtliche Leerzeichen in einem Text – empfehle ich Ihnen ein leistungsstarkes Tool: Kutools für Excel mit seinem Leerzeichen entfernen-Werkzeug. Damit entfernen Sie mühelos alle gewünschten Leerzeichen – beispielsweise am Anfang, am Ende oder überall im Text.
Nach der Installation von Kutools für Excelgehen Sie bitte wie folgt vor:
1. Wählen Sie den Datenbereich aus, in dem Sie überflüssige Leerzeichen entfernen möchten.
2. Klicken Sie auf Kutools > Text > Leerzeichen entfernen, siehe Screenshot:
3. Wählen Sie im Dialogfeld Leerzeichen entfernen die Option Alle überflüssigen Leerzeichen im Abschnitt Art der Leerzeichen aus. Das Ergebnis sehen Sie direkt im Bereich Vorschau – siehe Screenshot:
4. Klicken Sie anschließend auf die Schaltfläche Ok oder Anwenden. Alle überflüssigen Leerzeichen wurden aus der Zelle entfernt, und es bleibt jeweils nur ein einzelnes Leerzeichen zwischen den Wörtern erhalten.
Klicken Sie jetzt, um Kutools für Excel herunterzuladen und die kostenlose Testversion zu nutzen!
Mehrere Leerzeichen durch ein einzelnes Leerzeichen mithilfe von VBA-Code ersetzen
Falls Sie sich für den VBA-Code interessieren, erstelle ich Ihnen gerne einen Code, der mehrere Leerzeichen durch ein einzelnes ersetzt. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie dann auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Mehrere Leerzeichen durch ein einzelnes Leerzeichen ersetzen
Sub replace_multiplespaces()
'Updateby Extendoffice
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set Workx = Application.Selection
Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8)
For Each x In Workx
x = WorksheetFunction.Trim(x)
Next x
End Sub
3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Es erscheint ein Eingabefeld, das Sie auffordert, den Datenbereich auszuwählen, in dem Sie die überflüssigen Leerzeichen entfernen möchten – siehe Screenshot:
4. Klicken Sie anschließend auf die Schaltfläche OK. Alle überflüssigen Leerzeichen wurden durch jeweils ein einzelnes Leerzeichen zwischen den Wörtern ersetzt.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins