Wie erstellt man einen Makrocode, um Text in Excel zu suchen und zu ersetzen?
Normalerweise verwenden wir die integrierte Suchen und Ersetzen-Funktion, um Werte in Excel zu suchen und zu ersetzen. Tatsächlich können Sie Text in Excel auch direkt mithilfe eines Makrocodes Suchen und Ersetzen. In diesem Artikel erfahren Sie, wie Sie einen Makrocode erstellen, um Suchen und Ersetzen Text in Excel zu erreichen.
Erstellen Sie einen Makrocode, um Suchen und Ersetzen Text in Excel zu erreichen
Erstellen Sie einen Makrocode, um Suchen und Ersetzen Text in Excel zu erreichen
Gehen Sie wie folgt vor, um einen Makrocode zu erstellen, der Text in Excel sucht und ersetzt.
1. Drücken Sie die Alt+F11-Tasten, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul. Kopieren Sie anschließend den folgenden VBA-Code in das Codefenster.
VBA-Code: Erstellen Sie einen Makrocode, um Suchen und Ersetzen Text in Excel zu erreichen
Sub FindandReplaceText()
'Update by Extendoffice 2018/5/24
Dim xFind As String
Dim xRep As String
Dim xRg As Range
On Error Resume Next
Set xRg =Cells
xFind = Application.InputBox("word to search:", "Kutools for Excel", , , , , 2)
xRep = Application.InputBox("word to replace:", "Kutools for Excel", , , , , 2)
If xFind = "False" Or xRep = "False" Then Exit Sub
xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub3. Drücken Sie die F5-Taste, um den Code auszuführen.
4. Geben Sie im ersten Kutools für Excel-Dialogfeld den Text oder Wert ein, nach dem gesucht werden soll, und klicken Sie anschließend auf die Schaltfläche OK. Siehe Screenshot:
5. Geben Sie im zweiten Kutools für Excel-Dialogfeld den Text oder Wert ein, durch den ersetzt werden soll, und klicken Sie auf die Schaltfläche OK.
Dann werden alle angegebenen Texte umgehend durch Ihren Wunschtext ersetzt.
Hinweis: Dieser Code wird auf das aktive Arbeitsblatt angewendet.
Verwandte Artikel:
- Wie füllt man alle leeren Zellen in Excel mit einer bestimmten Zahl oder einem bestimmten Text?
- Wie ersetzt man Kommas durch Zeilenumbrüche (Alt + Enter) in Excel-Zellen?
- Wie benennt man Registerkarten von Arbeitsblättern in Excel um?
- Wie findet man einen Wert in einer Zelle, die eine kommagetrennte Liste enthält, in Excel?
- Wie ermittelt man den Durchschnittswert aus zwei Spalten 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