Direkt zum Inhalt

Wie finde und ersetze ich bestimmten Text in Textfeldern?

Suchen und Ersetzen ist ein nützliches Werkzeug, um Zellinhalte oder -formeln schnell und bequem in einem Arbeitsblatt zu finden und zu ersetzen. Aber jetzt habe ich mehrere Textfelder in meinem Arbeitsblatt, und ich möchte den spezifischen Text finden und ihn nur in diesen Textfeldern durch einen anderen Wert ersetzen. Haben Sie gute Möglichkeiten, um mit diesem Problem umzugehen?

Suchen und ersetzen Sie bestimmten Text in mehreren Textfeldern


Pfeil blau rechte Blase Suchen und ersetzen Sie bestimmten Text in mehreren Textfeldern

Sie können den benötigten Text einzeln manuell finden und ersetzen. Wenn jedoch mehrere Textfelder vorhanden sind, ist dies langweilig und müde. Der folgende VBA-Code kann Ihnen also helfen, ihn sofort zu beenden.

1. Aktivieren Sie Ihr Arbeitsblatt und halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

VBA-Code: Suchen und ersetzen Sie bestimmten Text in Textfeldern des aktuellen Arbeitsblatts

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. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, Ihren alten Text einzugeben, den Sie ersetzen möchten. Siehe Screenshot:

doc-replace-text-box1

4. Klicken Sie weiter OKGeben Sie in dieses Eingabeaufforderungsfeld den gewünschten neuen Textwert ein (siehe Abbildung):

doc-replace-text-box1

5. Und dann klick OK Schaltfläche wurden die alten Werte durch die neuen Werte ersetzt, die Sie im aktuellen Arbeitsblatt eingegeben haben. Siehe Screenshots:

doc-replace-text-box3
-1
doc-replace-text-box4

In Verbindung stehende Artikel:

Wie finde und ersetze ich Text in Diagrammtiteln in Excel?

Wie finde und ersetze ich Text in Kommentaren in Excel?

Wie ändere ich mehrere Hyperlinkpfade gleichzeitig in Excel?

Beste Office-Produktivitätstools

Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

kte tab 201905


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Doesn't work if its a formula (only text). Anyone know how to do this with textbox formulas?
This comment was minimized by the moderator on the site
Great, thanks! This was VERY handy to adapt for my specific use.
This comment was minimized by the moderator on the site
Great, thanks! This was VERY handy to adapt for my specific use.
This comment was minimized by the moderator on the site
How can I do the same in Kutool for Word
This comment was minimized by the moderator on the site
I am still not sure how to do find and replaced, to know how to use the VBA codes needs to be more clear
This comment was minimized by the moderator on the site
Hello, it works great on a single sheet. I wanted to know how can I have this work for the workbook having multiple sheets. Thanks
This comment was minimized by the moderator on the site
How can one find modifications done in text boxes of an Excel file, please? The utility "Spreadsheet Compare" shows many types of modifications between two versions of the same file but not when the changes concern text boxes. Thank you.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations