Wie entfernt man das erste bzw. letzte Wort aus einer Textzeichenfolge in einer Zelle?
Bei der täglichen Arbeit mit Excel müssen häufig Listen oder Datensätze bearbeitet werden, bei denen Textdaten bereinigt werden sollen. Eine wiederkehrende Aufgabe besteht darin, das erste oder letzte Wort einer Textzeichenfolge innerhalb einer Zelle zu entfernen. Beispielsweise könnten Sie eine Spalte mit vollständigen Namen oder detaillierten Beschreibungen haben, benötigen für Ihre Analyse aber nur den Text ohne das erste oder letzte Wort. Wie in der folgenden Abbildung gezeigt, bietet Excel hierfür keine direkte integrierte Funktion. Es gibt jedoch mehrere praktikable Methoden, um diese Aufgabe effizient zu erledigen – etwa mithilfe von Formeln, integrierten Excel-Funktionen oder VBA-Code. In diesem Leitfaden stellen wir verschiedene Ansätze vor, damit Sie je nach Szenario die am besten geeignete Methode auswählen können.
Inhalt:
- Erstes oder letztes Wort aus einer Textzeichenfolge mithilfe von Formeln entfernen
- Erstes oder letztes Wort mithilfe von „Text in Spalten“ entfernen (integrierte Excel-Methode)
- Erstes oder letztes Wort mithilfe eines VBA-Makros entfernen
Erstes oder letztes Wort aus einer Textzeichenfolge mithilfe von Formeln entfernen
Die Verwendung von Excel-Formeln bietet eine einfache, programmierfreie Möglichkeit, das erste oder letzte Wort aus einer Zelle zu entfernen. Diese Methode ist ideal, wenn Sie eine dynamische Lösung benötigen, die sich automatisch aktualisiert, sobald sich der Originaltext ändert. Beachten Sie jedoch, dass diese Formeln davon ausgehen, dass Wörter durch einzelne Leerzeichen getrennt sind und weder führende noch nachgestellte Leerzeichen sowie keine mehrfachen aufeinanderfolgenden Leerzeichen im Text enthalten sind. Prüfen Sie daher vor Anwendung dieser Lösungen stets die Formatierung Ihrer Daten.
Das erste Wort aus einer Textzeichenfolge entfernen:
1. Geben Sie diese Formel in eine leere Zelle ein, in der das Ergebnis angezeigt werden soll (z. B. Zelle B2):
=RIGHT(A2,LEN(A2)-FIND(" ",A2))Hierbei ist A2 die Zelle, die Ihre Originaltext-Zeichenfolge enthält. Diese Formel ermittelt das erste Leerzeichen und entfernt das erste Wort samt Leerzeichen, sodass nur der verbleibende Text zurückgegeben wird.
2. Ziehen Sie nach Bestätigung der Formel das Ausfüllkästchen nach unten, um sie bei Bedarf auf weitere Zellen in der Spalte anzuwenden. Wie in der Abbildung gezeigt, wird nun das erste Wort aus jeder Textzeichenfolge entfernt:
Tipps:Falls am Anfang Ihres Textes möglicherweise zusätzliche Leerzeichen vorhanden sind (Leerzeichen am Anfang), empfiehlt es sich, vor Anwendung der obigen Formel die Funktion GLÄTTENzur Bereinigung der Daten zu verwenden, beispielsweise:
=RIGHT(TRIM(A2),LEN(TRIM(A2))-FIND(" ",TRIM(A2)))Dadurch bleibt die Formel auch dann korrekt, wenn einige Zellen inkonsistente Abstände aufweisen.
Das letzte Wort aus einer Textzeichenfolge entfernen:
Um das letzte Wort aus einer Zelle zu entfernen, verwenden Sie die folgende Formel. Geben Sie sie beispielsweise in Zelle B2 ein:
=LEFT(TRIM(A2),FIND("~",SUBSTITUTE(A2," ","~",LEN(TRIM(A2))-LEN(SUBSTITUTE(TRIM(A2)," ",""))))-1)Diese Formel funktioniert, indem sie die Position des letzten Leerzeichens ermittelt und den gesamten Text davor extrahiert. Stellen Sie sicher, dass zwischen den Wörtern keine zusätzlichen Leerzeichen vorhanden sind, oder verwenden Sie wie oben beschrieben die Funktion GLÄTTEN. Nach Eingabe der Formel ziehen Sie das Ausfüllkästchen nach unten, um sie auf die gewünschte Anzahl von Zeilen anzuwenden. Alle letzten Wörter in der Spalte werden wie dargestellt gelöscht:
Fehlerhinweis: Wenn eine Zelle nur ein einziges Wort und kein Leerzeichen enthält, liefern diese Formeln entweder einen Fehler oder einen leeren Wert. Falls Ihre Daten solche Fälle enthalten könnten, sollten Sie die Formel mit WENNFEHLER umschließen, um Fehler zu vermeiden – zum Beispiel:
=IFERROR(RIGHT(A2,LEN(A2)-FIND(" ",A2)),"")Erstes oder letztes Wort mithilfe von „Text in Spalten“ entfernen (integrierte Excel-Methode)
In bestimmten Fällen – insbesondere bei der Bearbeitung kürzerer oder statischer Datensätze – bietet die integrierte Excel-Funktion Text in Spalten einen intuitiven, visuellen Ansatz, um Wörter voneinander zu trennen. Diese Methode ist ideal, wenn Sie schnell alle Wörter einer Textzeichenfolge in Spalten aufteilen und diese anschließend gezielt wieder zusammenführen möchten – etwa unter Ausschluss des ersten oder letzten Wortes. Obwohl sie im Gegensatz zu Formeln nicht dynamisch ist und sich nicht automatisch aktualisiert, sobald sich die Quellzelle ändert, eignet sie sich hervorragend für einmalige Bereinigungen.
Schritte:
- 1. Wählen Sie die Spalte mit den zu teilenden Textdaten aus.
- 2. Wechseln Sie zur Registerkarte Daten und klicken Sie auf Text in Spalten.
- 3. Wählen Sie im Assistenten Getrennt und klicken Sie dann auf Weiter.
- 4. Aktivieren Sie ausschließlich das Trennzeichen Leerzeichen und klicken Sie auf Weiter.
- 5. Wählen Sie das Ziel für die Aufteilung der Daten aus und klicken Sie anschließend auf Fertig stellen.
- 6. Nach der Aufteilung enthält jede Spalte jeweils ein einzelnes Wort aus der ursprünglichen Zelle. Um das erste Wort zu entfernen, fügen Sie einfach alle Spalten außer der ersten mithilfe der Funktion VERKETTEN oder TEXTVERKETTEN (falls verfügbar) wieder zusammen. Um das letzte Wort zu entfernen, kombinieren Sie analog alle Spalten außer der letzten.
Sie können eine Formel wie die folgende verwenden (angenommen, Ihre Daten aufteilen befinden sich nun in den Spalten B, C und D für eine Zelle):
=CONCATENATE(C2," ",D2)Wenn Sie viele Spalten verknüpfen müssen und über Excel 2016 oder eine neuere Version verfügen, verwenden Sie:
=TEXTJOIN(" ",TRUE,C2:E2)Hinweise: Die Methode Text in Spalten überschreibt vorhandene Daten rechts neben dem ausgewählten Bereich, wenn Sie nicht vorsichtig sind. Stellen Sie daher stets sicher, dass die benachbarten Spalten leer sind, oder kopieren Sie Ihre Daten vorab in einen leeren Bereich. Diese Methode eignet sich am besten für schnelle, manuelle Bearbeitungen und nicht für automatisierte Aktualisierungen.
Anwendungsszenarioanalyse: Ideal für schnelle, manuelle Eingriffe bei kurzen Listen oder wenn Sie Ihre Ergebnisse visuell prüfen und korrigieren möchten. Nicht geeignet für große, dynamische Datensätze, bei denen Automatisierung sinnvoll wäre.
Erstes oder letztes Wort aus einer Textzeichenfolge mithilfe eines VBA-Makros entfernen
Für fortgeschrittene oder wiederholte Massenoperationen – etwa zum Bereinigen großer Datensätze, zur Automatisierung der Entfernung von Textbausteinen oder zur Bewältigung komplexer Szenarien – ist ein VBA-Makro äußerst effizient. Mit VBA entfernen Sie mit nur wenigen Klicks das erste oder letzte Wort in einem gesamten Zellbereich. Stellen Sie vor Ausführung des Makros sicher, dass Ihre Daten keine ungewöhnlichen Leerzeichen oder geschützten Leerzeichen enthalten, da diese die Genauigkeit der Trennung beeinträchtigen könnten.
So verwenden Sie diesen VBA-Code:
1. Klicken Sie auf Entwicklertools > Visual Basic, um den Editor Microsoft Visual Basic for Applications zu öffnen. Klicken Sie im neuen Fenster auf Einfügen > Modul. Fügen Sie einen der folgenden Codes in das Modul ein.
Das erste Wort aus den ausgewählten Zellen entfernen:
Sub RemoveFirstWord()
Dim WorkRng As Range
Dim Rng As Range
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Select range to remove first word", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
If InStr(Rng.Value, " ") > 0 Then
arr = Split(Rng.Value, " ")
Rng.Value = Mid(Rng.Value, InStr(Rng.Value, " ") + 1)
End If
Next
End Sub2. Drücken Sie F5 oder klicken Sie auf Ausführen, um den Code auszuführen. Daraufhin öffnet das Makro ein Dialogfeld, in dem Sie die zu verarbeitenden Zellen auswählen können. Nach einem Klick auf OK werden Ihre Zellen direkt aktualisiert, indem das erste Wort aus jeder ausgewählten Zelle entfernt wird.
Das letzte Wort aus den ausgewählten Zellen entfernen:
Um das letzte Wort aus den ausgewählten Zellen zu entfernen, verwenden Sie den folgenden VBA-Code.
Sub RemoveLastWord()
Dim WorkRng As Range
Dim Rng As Range
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Select range to remove last word", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
If InStr(Rng.Value, " ") > 0 Then
arr = Split(Rng.Value, " ")
Rng.Value = Left(Rng.Value, Len(Rng.Value) - Len(arr(UBound(arr))) - 1)
End If
Next
End SubVorsichtsmaßnahmen: Diese Makros entfernen jeweils nur das erste oder letzte Wort, das in jeder Zelle der Auswahl durch Leerzeichen getrennt ist. Enthält eine Zelle nur ein einziges Wort (ohne Leerzeichen), bleibt sie unverändert. Arbeiten Sie stets mit einer Kopie Ihrer Daten oder speichern Sie Ihre Arbeitsmappe, bevor Sie VBA-Code ausführen – denn vorgenommene Änderungen können nicht rückgängig gemacht werden.
Vorteile: VBA ermöglicht eine schnelle Massenverarbeitung und eignet sich hervorragend zur Automatisierung repetitiver Bereinigungsaufgaben – besonders bei der Bearbeitung großer Datentabellen.
Fehlerbehebung: Wenn Sie „Laufzeitfehler“-Meldungen erhalten, stellen Sie sicher, dass alle Werte in Ihrer Auswahl im Textformat vorliegen. Leere Zellen oder fehlerhafte Zellen können dazu führen, dass das Makro übersprungen wird oder anhält.
Unabhängig davon, für welche Methode Sie sich entscheiden – Formeln, Text in Spalten oder VBA – sollten Sie Ihre Ergebnisse stets auf Datenkonsistenz prüfen, insbesondere wenn der Text möglicherweise zusätzliche Leerzeichen, Satzzeichen oder unerwartete Wortfolgen enthält. Sichern Sie nach Möglichkeit stets Ihre Originaldaten, besonders bevor Sie Massenbearbeitungen oder unbekannte Makros anwenden. Sollten Sie flexiblere oder leistungsfähigere Lösungen zum Bereinigen oder Aufteilen von Text in Excel benötigen, bietet Kutools für Excel umfassende Werkzeuge, die vielfältige Herausforderungen beim Textaufteilen und Formatieren meistern – ganz ohne komplexe Formeln oder Code.
Zellenwerte anhand eines bestimmten Trennzeichens in mehrere Spalten und Zeilen aufteilen: Mit dem Kutools für Excel-Zellen aufteilen-Werkzeug teilen Sie Textzeichenfolgen in einer Zelle im Handumdrehen anhand von Leerzeichen, Kommas, Zeilenumbrüchen oder beliebigen anderen von Ihnen festgelegten Trennzeichen in mehrere Spalten oder Zeilen auf.
Kutools für Excel: mit mehr als 300 praktischen Excel-Add-Ins, kostenlos und uneingeschränkt 30 Tage lang testbar.Jetzt herunterladen und kostenlos testen! |
Verwandter Artikel:
Wie entfernt man die ersten, letzten oder bestimmten Zeichen aus Text in Excel?
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