Direkt zum Inhalt
 

Wie finde und ersetze ich bestimmten Text in Textfeldern?

Autor: Xiaoyang Letzte Änderung: 2022-12-12

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

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
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 ...


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!