Wie sucht und ersetzt man mehrere Werte gleichzeitig in Excel?
Wie allgemein bekannt ist, lässt sich die Suchen-und-Ersetzen-Funktion nutzen, um mehrere identische Zellen zu finden und durch einen festgelegten Wert zu ersetzen. Doch was tun, wenn gleichzeitig zahlreiche unterschiedliche Ersetzungen erforderlich sind? Angenommen, Sie haben einen Datenbereich und möchten „Apples“ durch „Red Apples“, „Oranges“ durch „Green Oranges“, „Bananas“ durch „Yellow Bananas“ und so weiter ersetzen – wie im linken Screenshot gezeigt: Gibt es effektive Methoden, um diese Aufgabe in Excel zu bewältigen?
Suchen und Ersetzen mehrere Werte gleichzeitig mit VBA-Code
Wenn Sie es leid sind, Werte immer wieder einzeln zu suchen und zu ersetzen, hilft Ihnen der folgende VBA-Code dabei, mehrere Werte gleichzeitig durch Ihre gewünschten Texte zu ersetzen.
1. Legen Sie zunächst Ihre Bedingungen fest, die die Originalwerte und die neuen Werte enthalten. Siehe Screenshot:
2. Halten Sie anschließend die Tasten „ALT“ + „F11“ gedrückt, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
3. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Suchen und Ersetzen mehrere Werte gleichzeitig
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4. Drücken Sie anschließend die Taste „F5“, um den Code auszuführen, und geben Sie im erscheinenden Eingabefeld den Datenbereich an, in dem Sie die Werte durch neue ersetzen möchten.
5. Klicken Sie auf „OK“. Anschließend erscheint ein weiteres Eingabefeld, in dem Sie die in Schritt 1 erstellten Kriterien auswählen können. Siehe Screenshot:
6. Klicken Sie anschließend auf „OK“. Alle festgelegten Werte wurden nun durch die neuen Werte ersetzt.
Verwandte Artikel:
Wie sucht und ersetzt man bestimmten Text in einem Textfeld?
Wie sucht und ersetzt man Text in Diagrammtiteln in Excel?
Wie sucht und ersetzt man Text innerhalb von Kommentaren in Excel?
Wie kann man mehrere Hyperlink-Pfade in Excel gleichzeitig ändern?
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