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
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:
4. Klicken Sie weiter OKGeben Sie in dieses Eingabeaufforderungsfeld den gewünschten neuen Textwert ein (siehe Abbildung):
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:
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
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!