Wie kann man bestimmten Text in Textfeldern in Excel finden und ersetzen?
Das Tool 'Suchen und Ersetzen' ist eine wesentliche Funktion, um Zellinhalte oder Formeln in einem Arbeitsblatt schnell zu aktualisieren. Das Verwalten von Text in mehreren Textfeldern kann jedoch eine Herausforderung sein, wenn Sie auf manuelle Aktualisierungen beschränkt sind. Wenn Sie spezifischen Text in Textfeldern finden und effizient ersetzen müssen, wird Sie dieses Tutorial durch die Verwendung von VBA-Code führen, um diese Aufgabe in nur wenigen Schritten zu bewältigen.
Bestimmten Text in mehrere Textfeldern finden und ersetzen
Bestimmten Text in mehrere Textfeldern finden und ersetzen
Sie können Text manuell einzeln finden und ersetzen, aber dieser Prozess wird mühsam und zeitaufwendig, wenn Sie mit mehreren Textfeldern arbeiten. Der folgende VBA-Code bietet eine effiziente Möglichkeit, diese Aufgabe auf einmal abzuschließen.
1. Aktivieren Sie Ihr Arbeitsblatt und halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.
VBA-Code: Bestimmten Text in Textfeldern des aktuellen Arbeitsblatts finden und ersetzen
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 dann die F5-Taste, um diesen Code auszuführen, und ein Eingabefenster wird angezeigt, das Sie auffordert, den alten Text einzugeben, den Sie ersetzen möchten. Siehe Screenshot:
4. Klicken Sie weiter auf OK, und in diesem Eingabefenster geben Sie den neuen Textwert ein, den Sie möchten, siehe Screenshot:
5. Klicken Sie dann auf die Schaltfläche OK, und die alten Werte wurden durch die neuen Werte, die Sie im aktuellen Arbeitsblatt eingegeben haben, ersetzt. Siehe Screenshots:
 |
 |
 |
Verwandte Artikel:
Wie kann man Text in Diagrammtiteln in Excel finden und ersetzen?
Wie kann man Text innerhalb von Kommentaren in Excel finden und ersetzen?
Wie kann man mehrere Hyperlink-Pfade gleichzeitig in Excel ändern?
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins