Hoe specifieke tekst in tekstvakken in Excel te vinden en vervangen?
De functie Zoeken en Vervangen is een essentiële tool om snel celinhoud of formules binnen een werkblad bij te werken. Het beheren van tekst in meerdere tekstvakken kan echter een uitdaging zijn als je beperkt bent tot handmatige updates. Als je specifieke tekst in tekstvakken moet vinden en efficiënt vervangen, zal deze handleiding je door het proces leiden met behulp van VBA-code om deze taak in slechts enkele stappen uit te voeren.
Zoek en vervang specifieke tekst in meerdere tekstvakken
Zoek en vervang specifieke tekst in meerdere tekstvakken
Je kunt handmatig tekst één voor één zoeken en vervangen, maar dit proces wordt tijdrovend en omslachtig wanneer je met meerdere tekstvakken werkt. De volgende VBA-code biedt een efficiënte manier om deze taak in één keer te voltooien.
1. Activeer je werkblad en houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Zoek en vervang specifieke tekst in tekstvakken van het huidige werkblad
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. Druk vervolgens op de F5-toets om deze code uit te voeren, en er verschijnt een pop-upvenster waarin je wordt gevraagd de oude tekst in te voeren die je wilt vervangen. Zie screenshot:
4. Klik verder op OK, en in dit pop-upvenster voer je de nieuwe tekstwaarde in die je wilt gebruiken. Zie screenshot:
5. Klik vervolgens op de knop OK, en de oude waarden zijn vervangen door de nieuwe waarden die je hebt ingevoerd in het huidige werkblad. Zie screenshots:
 |
 |
 |
Gerelateerde artikelen:
Hoe tekst in grafiektitels in Excel te vinden en vervangen?
Hoe tekst in opmerkingen in Excel te vinden en vervangen?
Hoe meerdere hyperlinkpaden tegelijk te wijzigen in Excel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen