Hoe vervangt u tekst binnen één cel in Excel?
In veel gevallen wilt u de tekst binnen één cel omwisselen voor een specifiek doel. Bijvoorbeeld: een cel bevat de naam „Smith John” en u wilt deze wijzigen in „John Smith”. Dit artikel beschrijft verschillende methoden om dit probleem op te lossen.
Tekst binnen één cel verwisselen met een formule
Tekst binnen één cel verwisselen met VBA-code
Eenvoudig tekst binnen één cel verwisselen met Kutools voor Excel>
Tekst binnen één cel verwisselen met een formule
Met de onderstaande formule kunt u tekst binnen één cel in Excel eenvoudig verwisselen. Volg deze stappen.
1. Selecteer een lege cel voor het resultaat, typ de formule in de formulebalk en druk op EnterZie de afbeelding:
=RIGHT(A2,LEN(A2)-FIND(" ",A2)) & „ " & LEFT(A2,FIND(„ ",A2)-1)

2. Selecteer de resultaatcel en sleep de vulgreep naar beneden om de overige resultaten te verkrijgen, zoals in de onderstaande afbeelding wordt getoond.

U ziet nu dat Voornaam en Achternaam zijn verwisseld in de opgegeven cellen.
Opmerking: deze methode werkt alleen voor twee tekstdelen binnen één cel die gescheiden zijn door een spatie.
Wissel of verwissel eenvoudig tekst binnen één cel in Excel:
Met de Tekst omkeren-functie van Kutools voor Excel wisselt u eenvoudig tekst binnen één cel om op basis van een bepaald scheidingsteken in Excel, zoals in de onderstaande demo wordt getoond.
Download en probeer het nu! (30 dagen gratis proefversie)

Tekst binnen één cel verwisselen met VBA-code
Zoals in bovenstaand voorbeeld wordt getoond, kunt u ook het volgende VBA-script uitvoeren om tekst binnen één cel te verwisselen.
1. Druk tegelijkertijd op de toetsen Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.
VBA-code: Tekst binnen één cel verwisselen
Sub res()
Dim xRg As Range, yRg As Range
Dim LastRow As Long, i As Long
Dim strTxt As String, strFs As String
Dim strLs As String, N As Integer
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Range Selection:", _
Title:="Kutools for excel", Type:=8)
For Each yRg In xRg
On Error Resume Next
strTxt = yRg.Value
Trim (strTxt)
N = InStr(strTxt, " ")
strLs = Left(strTxt, N - 1)
strFs = Right(strTxt, Len(strTxt) - N)
yRg.Value = strFs & " " & strLs
Next
End Sub 3. Druk op de F5-toets om de code uit te voeren. Selecteer in het verschijnende Kutools voor Excel-dialoogvenster het bereik met de gegevens die u wilt verwisselen en klik op de knop OK. Zie afbeelding:

U ziet nu direct dat de teksten in de opgegeven cellen zijn verwisseld.
Opmerking: deze code kan ook correct twee woorden binnen één cel verwisselen die door een spatie zijn gescheiden.
Verwissel eenvoudig tekst binnen één cel met Kutools voor Excel
In dit gedeelte wordt de Tekst omkeren-functie van Kutools voor Excel aanbevolen om dit probleem eenvoudig op te lossen. Volg deze stappen.
1. Selecteer het bereik met de teksten die u wilt omkeren en klik op Kutools > Tekst > Tekst omkeren. Zie afbeelding:

2. Selecteer in het dialoogvenster Tekst omkeren het scheidingsteken waarmee u de teksten wilt verwisselen in het gedeelte Scheidingsteken. In dit geval kies ik de optie Spatie. Klik daarna op de knop OK.

U ziet nu direct dat de gegevens in de geselecteerde cellen zijn verwisseld binnen dezelfde cel op basis van het opgegeven scheidingsteken.
Wilt u een gratis proefversie (30 dagen) van deze tool gebruiken?Klik dan hier om deze te downloaden en volg daarna bovenstaande stappen om de bewerking toe te passen.
Gerelateerd artikel:
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