Wie sucht und ersetzt man bestimmten Text in einem Textfeld in Excel?
Das Suchen-und-Ersetzen-Tool ist eine unverzichtbare Funktion, um Zellinhalte oder Formeln innerhalb eines Arbeitsblatts schnell zu aktualisieren. Die Verwaltung von Text in mehreren Textfeldern kann jedoch zur Herausforderung werden, wenn Sie auf manuelle Aktualisierungen angewiesen sind. Müssen Sie bestimmten Text in Textfeldern suchen und effizient ersetzen, führt Sie diese Anleitung in nur wenigen Schritten durch die Nutzung von VBA-Code, um diese Aufgabe mühelos zu erledigen.
Suchen und Ersetzen bestimmten Text in mehreren Textfeld
Suchen und Ersetzen bestimmten Text in mehreren Textfeld
Sie können Text manuell einzeln suchen und ersetzen – doch bei mehreren Textfeldern wird dieser Vorgang schnell mühsam und zeitaufwendig. Der folgende VBA-Code bietet eine effiziente Lösung, um diese Aufgabe in einem einzigen Schritt abzuschließen.
1. Aktivieren Sie Ihr Arbeitsblatt und drücken Sie gleichzeitig ALT + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.
VBA-Code: Suchen und Ersetzen bestimmten Text in Textfeld von Aktuelles Arbeitsblatt
Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub
3. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Daraufhin erscheint ein Eingabefeld, in dem Sie aufgefordert werden, den alten Text einzugeben, den Sie ersetzen möchten. Siehe Screenshot:
4. Klicken Sie weiterhin auf OK und geben Sie in diesem Eingabefeld den gewünschten neuen Text ein. Siehe Screenshot:
5. Klicken Sie anschließend auf die Schaltfläche OK, damit die alten Werte durch die neuen ersetzt werden, die Sie im aktuellen Arbeitsblatt eingegeben haben. Siehe Screenshots:
 |
 |
 |
Verwandte Artikel:
Wie sucht und ersetzt man Text in Diagrammtiteln in Excel?
Wie sucht und ersetzt man Text innerhalb von Kommentaren in Excel?
Wie können Sie 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