Hoe Zoeken en Vervangen u specifieke tekst in Tekstvak in Excel?
De functie Zoeken en Vervangen is essentieel om snel celinhoud of formules in een werkblad bij te werken. Het beheren van tekst in meerdere tekstvakken kan echter lastig zijn als u afhankelijk bent van handmatige updates. Moet u specifieke tekst in tekstvakken zoeken en efficiënt vervangen? Dan leidt deze handleiding u stap voor stap door het gebruik van VBA-code om deze taak in slechts enkele stappen uit te voeren.
Zoeken en Vervangen specifieke tekst in meerdere Tekstvak
Zoeken en Vervangen specifieke tekst in meerdere Tekstvak
U kunt tekst handmatig één voor één zoeken en vervangen, maar dit proces wordt al snel vervelend en tijdrovend bij meerdere tekstvakken. De volgende VBA-code biedt een efficiënte oplossing om deze taak in één keer af te ronden.
1. Activeer uw werkblad en druk op ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Zoeken en Vervangen specifieke tekst in Tekstvak van Huidig 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 toets F5 om deze code uit te voeren. Er verschijnt een invoervenster waarin u wordt gevraagd de oude tekst in te voeren die u wilt vervangen. Zie screenshot:
4. Klik op OK en typ in dit invoervenster de nieuwe tekstwaarde die u wilt gebruiken. Zie screenshot:
5. Klik daarna op de knop OK; de oude waarden zijn nu vervangen door de nieuwe waarden die u hebt ingevoerd in het huidige werkblad. Zie screenshots:
 |
 |
 |
Gerelateerde artikelen:
Hoe gebruikt u Zoeken en Vervangen om tekst in grafiektitels in Excel te wijzigen?
Hoe bewerkt u tekst in opmerkingen in Excel?
Hoe wijzigt u meerdere hyperlinkpaden tegelijk in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins