In diesem Tutorial werden wir verschiedene Möglichkeiten zum Suchen und Ersetzen von mehreren Wörtern, Zeichenfolgen oder einzelnen Zeichen betrachten, damit Sie die für Ihre Bedürfnisse am besten geeignete auswählen können.

Wie wird in Excel normalerweise gesucht? Meistens mit der Funktion Suchen & Ersetzen, die für einzelne Werte gut funktioniert. Aber was ist, wenn Sie Dutzende oder sogar Hunderte von Elementen ersetzen müssen? Sicherlich möchte niemand all diese Ersetzungen manuell einzeln vornehmen und dann alles wiederholen, wenn sich die Daten ändern. Zum Glück gibt es ein paar effektivere Methoden, um Massenersetzungen in Excel durchzuführen, undwerden wir jeden einzelnen von ihnen im Detail untersuchen.

Suchen und Ersetzen mehrerer Werte mit verschachteltem SUBSTITUTE

Die einfachste Möglichkeit, mehrere Einträge in Excel zu suchen und zu ersetzen, ist die Funktion SUBSTITUTE.

Die Logik der Formel ist sehr einfach: Sie schreiben ein paar einzelne Funktionen, um einen alten Wert durch einen neuen zu ersetzen. Und dann schachteln Sie diese Funktionen ineinander, so dass jedes nachfolgende SUBSTITUTE die Ausgabe des vorherigen SUBSTITUTE verwendet, um den nächsten Wert zu suchen.

ERSATZ(ERSATZ(ERSATZ(ERSATZ( Text , alter_text1 , neuer_text1 ), alter_text2 , neuer_text2 ), alter_text3 , neuer_text3 )

Angenommen, Sie möchten in der Liste der Orte in A2:A10 die abgekürzten Ländernamen (z. B. FR , UK und USA ) mit vollständigen Namen.

Geben Sie dazu die alten Werte in D2:D4 und die neuen Werte in E2:E4 ein, wie in der Abbildung unten gezeigt. Geben Sie dann die folgende Formel in B2 ein und drücken Sie die Eingabetaste:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2:A10, D2, E2), D3, E3), D4, E4)

...und Sie werden alle Ersetzungen auf einmal vornehmen lassen:

Bitte beachten Sie, dass der oben beschriebene Ansatz nur in folgenden Fällen funktioniert Excel 365 die dynamische Arrays unterstützt.

In vordynamischen Versionen von Excel 2019, Excel 2016 und früher muss die Formel für die oberste Zelle (B2) geschrieben und dann in die darunter liegenden Zellen kopiert werden:

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2, $D$2, $E$2), $D$3, $E$3), $D$4, $E$4)

Bitte beachten Sie, dass wir in diesem Fall die Ersatzwerte mit absoluten Zellbezügen fixieren, damit sie sich nicht verschieben, wenn Sie die Formel nach unten kopieren.

Hinweis: Die Funktion SUBSTITUTE ist Groß- und Kleinschreibung , d.h. Sie sollten die alten Werte eingeben ( alter_text ) in der gleichen Groß- und Kleinschreibung, wie sie in den Originaldaten vorkommen.

So einfach diese Methode auch sein mag, sie hat einen entscheidenden Nachteil: Wenn Sie Dutzende von Objekten zu ersetzen haben, werden verschachtelte Funktionen ziemlich schwierig zu handhaben.

Vorteile Einfach zu implementieren; unterstützt in allen Excel-Versionen

Beeinträchtigungen : am besten für eine begrenzte Anzahl von Suchen/Ersetzen-Werten zu verwenden

Suchen und Ersetzen mehrerer Einträge mit XLOOKUP

In der Situation, in der Sie sich für einen Ersatz der gesamter Zellinhalt Die Funktion XLOOKUP erweist sich als sehr nützlich.

Angenommen, Sie haben eine Liste von Ländern in Spalte A und möchten alle Abkürzungen durch die entsprechenden vollständigen Namen ersetzen. Wie im vorherigen Beispiel beginnen Sie mit der Eingabe der Elemente "Suchen" und "Ersetzen" in separaten Spalten (D bzw. E) und geben dann diese Formel in B2 ein:

=XLOOKUP(A2, $D$2:$D$4, $E$2:$E$4, A2)

Übersetzt aus der Excel-Sprache in die menschliche Sprache sieht die Formel folgendermaßen aus:

Suche nach dem A2-Wert (lookup_value) in D2:D4 (lookup_array) und Rückgabe einer Übereinstimmung aus E2:E4 (return_array). Wenn nicht gefunden, wird der ursprüngliche Wert aus A2 gezogen.

Doppelklicken Sie auf den Füllgriff, um die Formel in die darunter liegenden Zellen zu kopieren, und das Ergebnis wird Sie nicht warten lassen:

Da die Funktion XLOOKUP nur in Excel 365 verfügbar ist, funktioniert die obige Formel nicht in früheren Versionen. Sie können dieses Verhalten jedoch leicht mit einer Kombination aus IFERROR oder IFNA und VLOOKUP nachahmen:

=IFNA(VLOOKUP(A2, $D$2:$E$4, 2, FALSE), A2)

Hinweis: Im Gegensatz zu SUBSTITUTE sind die Funktionen XLOOKUP und VLOOKUP keine Unterscheidung zwischen Groß- und Kleinschreibung , d.h. sie suchen nach den Nachschlagewerten ohne Berücksichtigung der Groß- und Kleinschreibung. Unsere Formel würde z.B. beides ersetzen FR und fr mit Frankreich .

Vorteile : ungewöhnliche Verwendung der üblichen Funktionen; funktioniert in allen Excel-Versionen

Beeinträchtigungen Funktioniert auf Zellebene, kann einen Teil des Zellinhalts nicht ersetzen

Mehrfaches Ersetzen durch rekursive LAMBDA-Funktion

Für Microsoft 365-Abonnenten bietet Excel eine spezielle Funktion, die es ermöglicht, benutzerdefinierte Funktionen mit einer traditionellen Formelsprache zu erstellen. Ja, ich spreche von LAMBDA. Das Schöne an dieser Methode ist, dass sie eine sehr lange und komplexe Formel in eine sehr kompakte und einfache Formel umwandeln kann. Außerdem können Sie damit Ihre eigenen Funktionen erstellen, die es in Excel nicht gibt, etwas, das es vorher nicht gabnur mit VBA möglich.

Detaillierte Informationen über die Erstellung und Verwendung von benutzerdefinierten LAMBDA-Funktionen finden Sie in diesem Tutorial: How to write LAMBDA functions in Excel. Hier werden wir einige praktische Beispiele besprechen.

Vorteile Das Ergebnis ist eine elegante und erstaunlich einfach zu bedienende Funktion, unabhängig von der Anzahl der Ersetzungspaare

Beeinträchtigungen Nur in Excel 365 verfügbar; arbeitsmappenspezifisch und kann nicht in verschiedenen Arbeitsmappen wiederverwendet werden

Beispiel 1: Suchen und Ersetzen mehrerer Wörter / Zeichenfolgen auf einmal

Um mehrere Wörter oder Texte auf einmal zu ersetzen, haben wir eine benutzerdefinierte LAMBDA-Funktion erstellt, die MultiReplace die eine der folgenden Formen annehmen kann:

=LAMBDA(text, alt, neu, IF(alt"", MultiReplace(SUBSTITUTE(text, alt, neu), OFFSET(alt, 1, 0), OFFSET(neu, 1, 0)), text))

Oder

=LAMBDA(text, alt, neu, IF(alt="", text, MultiReplace(SUBSTITUTE(text, alt, neu), OFFSET(alt, 1, 0), OFFSET(neu, 1, 0))))

Beides sind rekursive Funktionen, die sich selbst aufrufen. Der Unterschied liegt nur darin, wie der Exit-Point festgelegt wird.

In der ersten Formel prüft die IF-Funktion, ob die alt Liste nicht leer ist (alt""). Wenn TRUE, wird die MultiReplace Wird FALSE aufgerufen, gibt die Funktion Text in seiner jetzigen Form und verlässt ihn.

Die zweite Formel verwendet die umgekehrte Logik: wenn alt leer ist (alt=""), dann zurück Text und beenden; andernfalls rufen Sie MultiReplace .

Der kniffligste Teil ist geschafft: Sie müssen nur noch den Namen der MultiReplace Die detaillierten Richtlinien finden Sie unter Wie benennt man eine LAMBDA Funktion?

Sobald die Funktion einen Namen hat, können Sie sie wie jede andere eingebaute Funktion verwenden.

Unabhängig davon, für welche der beiden Formelvarianten Sie sich entscheiden, ist die Syntax aus Sicht des Endbenutzers so einfach wie folgt:

MultiReplace(text, alt, neu)

Wo:

• Text - die Quelldaten
• Alte - die zu findenden Werte
• Neu - die zu ersetzenden Werte mit

Gehen wir noch einen Schritt weiter und ersetzen nicht nur die Länderkürzel, sondern auch die Abkürzungen der Bundesländer. Geben Sie dazu die Abkürzungen ( alt Werte) in Spalte D, beginnend mit D2, und die vollständigen Namen ( neu Werte) in Spalte E, beginnend in E2.

Geben Sie in B2 die Funktion MultiReplace ein:

=MultiReplace(A2:A10, D2, E2)

Drücken Sie Enter und genießen Sie die Ergebnisse :)

Wie diese Formel funktioniert

Der Schlüssel zum Verständnis der Formel ist das Verständnis der Rekursion. Das mag kompliziert klingen, aber das Prinzip ist ganz einfach. Mit jeder Iteration löst eine rekursive Funktion einen kleinen Teil eines größeren Problems. In unserem Fall ist die MultiReplace durchläuft die alten und neuen Werte in einer Schleife und führt bei jeder Schleife eine Ersetzung durch:

MultiReplace (SUBSTITUTE(text, alt, neu), OFFSET(alt, 1, 0), OFFSET(neu, 1, 0))

Wie bei verschachtelten SUBSTITUTE-Funktionen wird das Ergebnis des vorherigen SUBSTITUTE zum Text Parameter für das nächste SUBSTITUTE, d.h. bei jedem weiteren Aufruf von MultiReplace verarbeitet die Funktion SUBSTITUTE nicht die ursprüngliche Zeichenkette, sondern die Ausgabe des vorherigen Aufrufs.

Um alle Einträge auf der alt Liste beginnen wir mit der obersten Zelle und verwenden die Funktion OFFSET, um bei jeder Interaktion eine Zeile nach unten zu gehen:

OFFSET(alt, 1, 0)

Das Gleiche gilt für die neu Liste:

OFFSET(neu, 1, 0)

Entscheidend ist die Bereitstellung eines Ausreisepunkt um zu verhindern, dass rekursive Aufrufe ewig fortgesetzt werden. Dies geschieht mit Hilfe der IF-Funktion - wenn die alt Zelle leer ist, gibt die Funktion Text in seiner jetzigen Form und verlässt ihn:

=LAMBDA(text, alt, neu, IF(alt="", text, MultiReplace(...)))

oder

=LAMBDA(text, alt, neu, IF(alt"", MultiReplace(...), text))

Beispiel 2: Ersetzen mehrerer Zeichen in Excel

Im Prinzip ist die MultiReplace kann auch einzelne Zeichen verarbeiten, vorausgesetzt, jedes alte und neue Zeichen wird in eine eigene Zelle eingegeben, genau wie die abgekürzten und vollständigen Namen in den obigen Screenshots.

Wenn Sie lieber die alten Zeichen in eine Zelle und die neuen Zeichen in eine andere Zelle eingeben oder sie direkt in die Formel eingeben möchten, können Sie eine weitere benutzerdefinierte Funktion mit dem Namen ErsetzeZeichen mit Hilfe einer der folgenden Formeln:

=LAMBDA(text, alte_Zeichen, neue_Zeichen, IF(alte_Zeichen"", ReplaceChars(SUBSTITUTE(text, LEFT(alte_Zeichen), LEFT(neue_Zeichen)), RIGHT(alte_Zeichen, LEN(alte_Zeichen)-1), RIGHT(neue_Zeichen, LEN(neue_Zeichen)-1)), text))

Oder

=LAMBDA(text, alte_Zeichen, neue_Zeichen, IF(alte_Zeichen="", text, ReplaceChars(SUBSTITUTE(text, LEFT(alte_Zeichen), LEFT(neue_Zeichen)), RIGHT(alte_Zeichen, LEN(alte_Zeichen)-1), RIGHT(neue_Zeichen, LEN(neue_Zeichen)-1))))

Vergessen Sie nicht, Ihre neue Lambda-Funktion im Namensmanager wie gewohnt zu benennen:

Und schon ist Ihre neue benutzerdefinierte Funktion einsatzbereit:

ReplaceChars(text, alte_Zeichen, neue_Zeichen)

Wo:

• Text - die ursprünglichen Saiten
• Alte - die zu suchenden Zeichen
• Neu - die zu ersetzenden Zeichen durch

Um die Funktion in der Praxis zu testen, wollen wir etwas tun, was bei importierten Daten oft gemacht wird: Wir ersetzen die intelligenten Anführungszeichen und die intelligenten Apostrophe durch gerade Anführungszeichen und gerade Apostrophe.

Zunächst geben wir die intelligenten Anführungszeichen und das intelligente Hochkomma in D2 und die geraden Anführungszeichen und das gerade Hochkomma in E2 ein, wobei wir die Zeichen zur besseren Lesbarkeit durch Leerzeichen voneinander trennen (da wir in beiden Zellen dasselbe Trennzeichen verwenden, hat dies keine Auswirkungen auf das Ergebnis - Excel ersetzt ein Leerzeichen einfach durch ein Leerzeichen).

Danach geben wir diese Formel in B2 ein:

=ErsetzenZeichen(A2:A4, D2, E2)

Und wir haben genau die Ergebnisse erhalten, die wir gesucht haben:

Es ist auch möglich, die Zeichen direkt in die Formel einzugeben. In unserem Fall müssen Sie nur daran denken, die geraden Anführungszeichen wie folgt zu "duplizieren":

=ReplaceChars(A2:A4, "" " '", """ "" '")

Wie diese Formel funktioniert

Die ErsetzeZeichen Funktion durchläuft die alte_Zeichen und neue_Zeichen Zeichenketten und ersetzt jeweils das erste Zeichen auf der linken Seite. Dieser Teil wird von der Funktion SUBSTITUTE übernommen:

SUBSTITUTE(text, LEFT(alte_Zeichen), LEFT(neue_Zeichen))

Mit jeder Iteration entfernt die Funktion RIGHT ein Zeichen von der linken Seite der beiden alte_Zeichen und neue_Zeichen Zeichenketten, so dass die LINKE das nächste Zeichenpaar für die Ersetzung abrufen kann:

ReplaceChars(SUBSTITUTE(text, LEFT(old_chars), LEFT(new_chars)), RIGHT(old_chars, LEN(old_chars)-1), RIGHT(new_chars, LEN(new_chars)-1))

Vor jedem rekursiven Aufruf wertet die IF-Funktion die alte_Zeichen Wenn sie nicht leer ist, ruft die Funktion sich selbst auf. Sobald das letzte Zeichen ersetzt wurde, ist der Iterationsprozess beendet und die Formel gibt Text in seiner jetzigen Form und verlässt ihn.

Hinweis: Da die in unseren Kernformeln verwendete SUBSTITUTE-Funktion Groß- und Kleinschreibung , beide Lambdas ( MultiReplace und ErsetzeZeichen ) behandeln Groß- und Kleinbuchstaben als unterschiedliche Zeichen.

Massensuche und Ersetzen mit UDF

Falls die LAMBDA-Funktion in Ihrem Excel nicht zur Verfügung steht, können Sie eine benutzerdefinierte Funktion für Mehrfachersetzungen auf herkömmliche Weise mit VBA schreiben.

Um die UDF von der LAMBDA-definierten MultiReplace Funktion, werden wir sie anders benennen, zum Beispiel MassReplace Der Code der Funktion lautet wie folgt:

Function MassReplace(InputRng As Range, FindRng As Range, ReplaceRng As Range) As Variant () Dim arRes() As Variant 'Array zum Speichern der Ergebnisse Dim arSearchReplace(), sTmp As String 'Array zum Speichern der Suchen/Ersetzen-Paare, temporärer String Dim iFindCurRow, cntFindRows As Long 'Index der aktuellen Zeile des SearchReplace-Arrays, Anzahl der Zeilen Dim iInputCurRow, iInputCurCol, cntInputRows,cntInputCols As Long 'Index der aktuellen Zeile im Quellbereich, Index der aktuellen Spalte im Quellbereich, Zählung der Zeilen, Zählung der Spalten cntInputRows = InputRng.Rows.Count cntInputCols = InputRng.Columns.Count cntFindRows = FindRng.Rows.Count ReDim arRes(1 To cntInputRows, 1 To cntInputCols) ReDim arSearchReplace(1 To cntFindRows, 1 To 2) 'Vorbereitung des Arrays der Suchen/Ersetzen Paare ForiFindCurRow = 1 To cntFindRows arSearchReplace(iFindCurRow, 1) = FindRng.Cells(iFindCurRow, 1).Value arSearchReplace(iFindCurRow, 2) = ReplaceRng.Cells(iFindCurRow, 1).Value Next 'Suchen und Ersetzen im Quellbereich For iInputCurRow = 1 To cntInputRows For iInputCurCol = 1 To cntInputCols sTmp = InputRng.Cells(iInputCurRow, iInputCurCol).Value 'Ersetzen aller Suchen/Ersetzen-Paare in jeder ZelleFor iFindCurRow = 1 To cntFindRows sTmp = Replace(sTmp, arSearchReplace(iFindCurRow, 1), arSearchReplace(iFindCurRow, 2)) Next arRes(iInputCurRow, iInputCurCol) = sTmp Next Next MassReplace = arRes End Function

Wie LAMBDA-definierte Funktionen sind auch UDFs arbeitsmappenweit Das bedeutet, dass die MassReplace Funktion funktioniert nur in der Arbeitsmappe, in die Sie den Code eingefügt haben. Wenn Sie nicht sicher sind, wie Sie das richtig machen, folgen Sie bitte den Schritten, die in Wie man VBA-Code in Excel einfügt beschrieben sind.

Sobald Sie den Code in Ihre Arbeitsmappe eingefügt haben, erscheint die Funktion in der Formel-Intelligenz - nur der Name der Funktion, nicht die Argumente! Ich glaube aber, dass es keine große Sache ist, sich die Syntax zu merken:

MassReplace(eingabe_bereich, suche_bereich, ersetze_bereich)

Wo:

• Eingabe_Bereich - den Quellbereich, in dem Sie Werte ersetzen möchten.
• Bereich_finden - die Zeichen, Zeichenfolgen oder Wörter, nach denen gesucht werden soll.
• Ersetzen_Bereich - die Zeichen, Zeichenfolgen oder Wörter, die ersetzt werden sollen.

In Excel 365 funktioniert dies dank der Unterstützung für dynamische Arrays als normale Formel, die nur in die oberste Zelle (B2) eingegeben werden muss:

=MassReplace(A2:A10, D2:D4, E2:E4)

Im vordynamischen Excel funktioniert dies wie eine CSE-Array-Formel im alten Stil: Sie markieren den gesamten Quellbereich (B2:B10), geben die Formel ein und drücken gleichzeitig die Tasten Strg + Umschalt + Eingabe, um sie abzuschließen.

Vorteile Eine vernünftige Alternative zu einer benutzerdefinierten LAMBDA-Funktion in Excel 2019, Excel 2016 und früheren Versionen.

Beeinträchtigungen Die Arbeitsmappe muss als makroaktivierte .xlsm-Datei gespeichert sein.

Massenweise Ersetzung in Excel mit VBA-Makro

Wenn Sie gerne allgemeine Aufgaben mit Makros automatisieren, können Sie den folgenden VBA-Code verwenden, um mehrere Werte in einem Bereich zu suchen und zu ersetzen.

Sub BulkReplace() Dim Rng As Range, SourceRng As Range, ReplaceRng As Range On Error Resume Next Set SourceRng = Application.InputBox( "Quelldaten:" , "Bulk Replace" , Application.Selection.Address, Type :=8) Err.Clear If Not SourceRng Is Nothing Then Set ReplaceRng = Application.InputBox( "Ersetzter Bereich:" , "Bulk Replace" , Type :=8) Err.Clear If Not ReplaceRng Is Nothing ThenApplication.ScreenUpdating = False For Each Rng In ReplaceRng.Columns(1).Cells SourceRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value Next Application.ScreenUpdating = True End If End If End Sub

Um das Makro sofort nutzen zu können, können Sie unsere Beispiel-Arbeitsmappe mit dem Code herunterladen oder den Code in Ihre eigene Arbeitsmappe einfügen.

So verwenden Sie das Makro

Bevor Sie das Makro ausführen, geben Sie die alten und neuen Werte in zwei nebeneinander liegende Spalten ein, wie in der folgenden Abbildung gezeigt (C2:D4).

Wählen Sie dann Ihre Quelldaten aus, drücken Sie Alt + F8, wählen Sie die BulkReplace Makro, und klicken Sie auf ausführen. .

Da die Quelle Wut vorausgewählt ist, überprüfen Sie einfach den Verweis und klicken Sie auf OK:

Wählen Sie anschließend die Bereich ersetzen und klicken Sie auf OK:

Erledigt!

Vorteile Einmal einrichten, jederzeit wiederverwenden

Beeinträchtigungen : Das Makro muss bei jeder Datenänderung ausgeführt werden.

Mehrfaches Suchen und Ersetzen in Excel mit dem Teilstring-Tool

Im allerersten Beispiel habe ich erwähnt, dass verschachteltes SUBSTITUTE der einfachste Weg ist, um mehrere Werte in Excel zu ersetzen. Ich gebe zu, dass ich mich geirrt habe. Unsere Ultimate Suite macht alles noch einfacher!

Um Massenersetzungen in Ihrem Arbeitsblatt vorzunehmen, gehen Sie zu der Seite Ablebits Daten und klicken Sie auf Teilstring-Tools > Ersetzen von Teilzeichenfolgen .

Die Ersetzen von Teilzeichenfolgen wird ein Dialogfeld angezeigt, in dem Sie aufgefordert werden, die Quelle Reichweite und Unterbegriffe Bereich.

Wenn die beiden Bereiche ausgewählt sind, klicken Sie auf die Schaltfläche Ersetzen Sie und finden Sie die Ergebnisse in einer neuen Spalte, die rechts neben den ursprünglichen Daten eingefügt wurde. Ja, so einfach ist das!

Tipp: Bevor Sie auf Ersetzen Sie gibt es eine wichtige Sache, die Sie beachten sollten - die Groß- und Kleinschreibung beachten Wählen Sie diese Option aus, wenn Sie Groß- und Kleinbuchstaben als unterschiedliche Zeichen behandeln wollen. In diesem Beispiel kreuzen wir diese Option an, weil wir nur die großgeschriebenen Zeichenfolgen ersetzen und die Teilzeichenfolgen wie "fr", "uk" oder "ak" innerhalb anderer Wörter unberührt lassen wollen.

Wenn Sie wissen möchten, welche anderen Massenoperationen mit Zeichenketten durchgeführt werden können, sehen Sie sich die anderen Substring-Tools an, die in unserer Ultimate Suite enthalten sind, oder noch besser, laden Sie die Testversion herunter und probieren Sie sie aus!

So finden und ersetzen Sie mehrere Wörter und Zeichen auf einmal in Excel. Ich danke Ihnen für die Lektüre und hoffe, Sie nächste Woche in unserem Blog begrüßen zu dürfen!

Verfügbare Downloads

Mehrfaches Suchen und Ersetzen in Excel (.xlsm-Datei)

Ultimate Suite 14 Tage voll funktionsfähige Version (.exe-Datei)