Excel voegt Splitsen op tekst en nummer in op een opgegeven positie in een cel

In Excel is het heel gebruikelijk om teksten of getallen aan cellen toe te voegen—denk aan spaties tussen namen, een voorvoegsel of achtervoegsel bij cellen, of streepjes in burgerservicenummers. Deze handleiding behandelt vrijwel alle scenario’s voor het toevoegen van tekens in Excel, inclusief de bijbehorende methoden.

Opmerking

In deze handleiding geef ik enkele voorbeelden om de methoden uit te leggen. U kunt de verwijzingen aanpassen aan uw eigen behoeften wanneer u de onderstaande VBA-code of formules gebruikt, of u kunt de voorbeeldbestanden downloaden om de methoden direct uit te proberen.

Klik om het voorbeeldbestand te downloaden

Dit gedeelte toont verschillende methoden om tekens aan het begin van elke cel toe te voegen, zoals hieronder in de schermafbeelding wordt weergegeven:

1,1 Voeg tekens toe aan het begin van cellen met behulp van een formule

Hier kunt u één van de drie onderstaande formules kiezen:

Formule 1: samenvoegoperator „&"

Combineer meerdere teksten eenvoudig met het ampersand-teken (&).

„tekst"&cel

Formule 2: functie CONCATENATE

De functie CONCATENATE voegt teksten naadloos samen.

CONCATENATE(„tekst",cel)

Formule 3: functie CONCAT

Dit is een nieuwe functie, exclusief beschikbaar in Excel 2019, Office 365 en Excel Online.

CONCAT(„tekst",cel)

In de algemene formules: cel is de celverwijzing naar de tekst waaraan u een voorvoegsel wilt toevoegen, en tekst is de tekst die u aan die cel wilt toevoegen.

Met bovenstaand voorbeeld kunt u de volgende formules in Formulebalk gebruiken:

„&"

=$E$3&B3of =„Iphone"&B3

Functie CONCATENATE

=CONCATENATE($E$3,B3)of =CONCATENATE(„Iphone",B3)

Functie CONCAT

=CONCAT($E$3,B3)of =CONCAT(„Iphone",B3)

Druk op Enter om het resultaat te verkrijgen en sleep vervolgens de automatisch-aanvullen-greep omlaag naar Tekst toevoegen voor elke cel in het bereik B3:B6.

1,2 Voeg tekens toe aan het begin van cellen met Flash Fill

Als u Excel 2013 of een nieuwere versie gebruikt, kunt u de krachtige nieuwe functie Flash Fill gebruiken om cellen automatisch in te vullen op basis van eerder ingevoerde gegevens.

Kies een cel naast de eerste oorspronkelijke gegevens en typ handmatig de eerste gegevens met het gewenste voorvoegsel, zoals hieronder wordt weergegeven:

Typ vervolgens in de cel eronder de tweede gegevensreeks, inclusief het voorvoegsel. Terwijl u typt, verschijnt er een grijze suggestielijst; druk op Enter om Flash Fill toe te staan de gegevens automatisch in te vullen.

Als de voorbeeldlijst niet automatisch wordt gegenereerd, gaat u naar het tabblad Start en klikt u op Vullen > Flash Fill om deze handmatig uit te voeren.

1,3 Voeg tekens toe aan het begin van cellen met VBA-code

Als u bekend bent met VBA-code, wordt hier een VBA-code beschreven waarmee u tekst aan het begin van elke cel in een bereik kunt toevoegen.

1. Selecteer een bereik van cellen waaraan u het voorvoegsel wilt toevoegen en druk vervolgens op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik vervolgens in het verschijnende venster op Invoegen > Module om een nieuwe lege module in te voegen.

3. Kopieer en plak de onderstaande VBA-code in de nieuwe module.

VBA: Voeg toe aan het begin van cellen

Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub

4. Druk op F5 of klik op de knop Uitvoeren in het venster om de VBA-code te activeren.

Nu is de tekst „iPhone” aan het begin van alle geselecteerde cellen toegevoegd.

Naast het toevoegen van tekst aan het begin van cellen, komt het ook vaak voor dat tekst aan het einde van cellen wordt toegevoegd. We nemen als voorbeeld het toevoegen van een eenheid aan het einde van elke cel, zoals in de onderstaande schermafbeelding wordt getoond:

2,1 Voeg toe aan het einde van cellen met behulp van een formule

Hier kunt u één van de drie onderstaande formules kiezen:

Formule 1: samenvoegoperator „&"

Combineer meerdere teksten eenvoudig met het ampersand-teken (&).

Cel&„tekst"

Formule 2: functie CONCATENATE

De functie CONCATENATE voegt teksten naadloos samen.

SAMENVOEGEN(cel,„tekst")

Formule 3: functie CONCAT

Dit is een nieuwe functie, exclusief beschikbaar in Excel 2019, Office 365 en Excel Online.

SAMENV(cel,„tekst")

In de algemene formules: cel is de celverwijzing naar de tekst waaraan u een achtervoegsel wilt toevoegen, en tekst is de tekst die u aan die cel wilt toevoegen.

Met behulp van bovenstaand voorbeeld kunt u de volgende formules in Formulebalk gebruiken:

„&"

=B3&$E$3of =B3&„Kg"

Functie CONCATENATE

=SAMENVOEGEN(B3; $E$3)of =CONCATENATE(B3, „Kg")

Functie CONCAT

=SAMENV(B3; $E$3)of =CONCAT(B3, „Kg")

Druk op Enter om het resultaat te verkrijgen en sleep vervolgens de automatisch-aanvullen-greep naar beneden tot Tekst toevoegen aan het einde van elke cel in bereik B3:B6.

2,2 Voeg toe aan het einde van cellen met Flash Fill

Als u Excel 2013 of een nieuwere versie gebruikt, kan de krachtige nieuwe functie Snelvullen cellen automatisch invullen op basis van de bovenliggende cellen die u hebt ingevoerd.

Kies een cel naast de eerste oorspronkelijke gegevens en typ handmatig de eerste gegevens met de achtervoegseltekst, zoals hieronder wordt getoond:

Klik vervolgens op Gegevens > Flash Fill onder het eerste resultaat; alle cellen eronder, inclusief de actieve cel, worden automatisch ingevuld.

2,3 Voeg toe aan het einde van cellen met VBA-code

Hier is een VBA-code die Tekst toevoegen aan het einde van elke cel in een bereik kan toevoegen.

1. Selecteer een bereik cellen waaraan u de achtervoegseltekst wilt toevoegen en druk vervolgens op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik vervolgens in het venster dat verschijnt op Invoegen>Moduleom een nieuwe, lege module in te voegen.

3. Kopieer en plak onderstaande VBA-code in de nieuwe module.

VBA: Voeg toe aan het einde van cellen

Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub

4. Druk op F5 of klik op de Uitvoeren-knop in het venster om de VBA-code te activeren.

Nu is de tekst „kg” aan het einde van elke cel toegevoegd.

Voor de meeste van u is het toevoegen van tekst aan het begin of einde van cellen eenvoudig, maar tekst invoegen in het midden van cellen kan wat lastiger zijn. Neem bijvoorbeeld de situatie in de onderstaande schermafbeelding: het toevoegen van een scheidingsteken, zoals een dubbele punt (:), direct na het tweede teken in elke cel binnen bereik B3:B7.

3,1 Voeg toe na het n-de teken van een tekenreeks met een formule

Hieronder staan vier formules die u voor deze taak kunt gebruiken; kies er één uit:

Formule 1: Combineer de functies LINKS en RECHTS

LINKS(cel; n) & „tekst" & RECHTS(cel; LENGTE(cel) -n)

Formule 2: Combineer de functies SAMENVOEGEN(SAMENV), RECHTS en LENGTE

SAMENVOEGEN(LINKS(cel; n); „tekst"; RECHTS(cel; LENGTE(cel) -n))

Of

SAMENV(LINKS(cel; n); „tekst"; RECHTS(cel; LENGTE(cel) -n))

Formule 3: Functie VERVANGEN

VERVANGEN(cel; n+1; 0; „tekst")

In de algemene formules: cel is de celverwijzing naar de tekst waarin u tekst in het midden wilt invoegen, tekst is de tekst die u wilt toevoegen, en n is het getal dat aangeeft na welk teken in de tekenreeks de invoeging moet plaatsvinden.

Om de hierboven genoemde taak op te lossen, gebruikt u de volgende formules:

Combineer de functies LINKS en RECHTS

=LINKS(B3; 2) & ":" & RECHTS(B3; LENGTE(B3) -2)of =LINKS(B3; 2) & $E$3 & RECHTS(B3; LENGTE(B3) -2)

Combineer de functies SAMENVOEGEN(SAMENV), RECHTS en LENGTE

=CONCATENATE(LEFT(B3, 2), ":", RIGHT(B3, LEN(B3) -2))of =CONCAT (LEFT(B3, 2), ":", RIGHT(B3, LEN(B3) -2))

Functie VERVANGEN

=REPLACE(B3, 2+1, 0, ":")of =VERVANGEN(B3; 2+1; 0; $E$3)

Druk op Enter om het resultaat te verkrijgen en sleep vervolgens de automatisch-aanvullen-greep naar beneden tot Tekst toevoegen na het tweede teken van elke cel in bereik B3:B7.

3,2 Voeg toe na het n-de teken van een tekenreeks met Flash Fill

Als u Excel 2013 of een nieuwere versie gebruikt, kan de functie Flash Fill cellen automatisch invullen op basis van eerder ingevoerde gegevens.

Kies een cel naast de eerste oorspronkelijke gegevens en typ handmatig de eerste gegevens met een dubbele punt na het tweede teken, zoals hieronder wordt getoond:

Druk vervolgens op Ctrl+E bij het eerste resultaat onder **Cel activeren** om de opdracht Flash Fill te activeren; alle cellen eronder, inclusief de actieve cel, worden automatisch ingevuld.

3,3 Voeg toe na het n-de teken van een tekenreeks met VBA-code

Een VBA-code kan deze taak ook uitvoeren.

1. Druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik vervolgens in het venster dat verschijnt op Invoegen>Moduleom een nieuwe, lege module in te voegen.

3. Kopieer en plak onderstaande VBA-code in de nieuwe module.

VBA: Voeg toe in het midden van cellen

Sub AddToMidduleOfString()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        Rng.Value = VBA.Left(Rng.Value, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
    Next
End Sub

4. Druk op F5 of klik op de knop Uitvoeren in het venster om de VBA-code te activeren. Er verschijnt een dialoogvenster waarin u cellen kunt selecteren om tekst toe te voegen.

5. Klik op OK. De tekst „:” is nu toegevoegd na het tweede teken in elke cel binnen bereik B19:B23.

Bent u het beu om te worstelen met formules en VBA? Probeer dan een krachtige en handige tool: Kutools voor Excel, die u ondersteunt met de functie Tekst toevoegen.

Deze functie Tekst toevoegen kan het volgende:

• Tekst toevoegen Voor het eerste karakter
• Tekst toevoegen Na het laatste karakter
• Tekst toevoegen op opgegeven posities
• Uitbreiding
  Tekst toevoegen Voor hoofdletters
  Tekst toevoegen Voor kleine letters
  Tekst toevoegen Voor hoofdletters en kleine letters
  Tekst toevoegen Voor getallen

Selecteer de cellen waaraan u tekst wilt toevoegen en klik vervolgens op Kutools > Tekst > Tekst toevoegen.

4,1 Tekst toevoegen: voor het eerste teken of na het laatste teken

Typ in het dialoogvenster Tekst toevoegen de tekst die u aan de cellen wilt toevoegen in het tekstvak Tekst en selecteer vervolgens Voor het eerste karakter in het gedeelte Positie.

Klik op Toepassen of OK om het toevoegen te voltooien.

Typ de tekst die u aan de cellen wilt toevoegen in het tekstvak Tekst en selecteer vervolgens Na het laatste karakter in het gedeelte Positie.

Klik op Toepassen of OK om het toevoegen te voltooien.

4,2 Tekst toevoegen op opgegeven positie(s)

Soms wilt u mogelijk Tekst toevoegen naar het midden van een cel, of Tekst toevoegen op meerdere posities in de cel. Stel dat u het scheidingsteken „-” wilt toevoegen na het derde en zevende cijfer van de burgerservicenummers, zoals in onderstaande schermafbeelding wordt weergegeven:

Typ de gewenste tekst in het tekstvak Tekst van het dialoogvenster Tekst toevoegen en schakel het selectievakje Opgeven in. Voer daarna de posities, gescheiden door komma’s, in het tekstvak in en klik op OK of Toepassen.

4,3 Uitbreiding van het hulpprogramma Tekst toevoegen

Naast het Tekst toevoegen op normale posities (aan het begin, aan het einde en op een opgegeven positie), ondersteunt het hulpprogramma Tekst toevoegenook het Tekst toevoegen

• Voor hoofdletters
• Voor kleine letters
• Voor hoofdletters en kleine letters
• Voor getallen

Typ in het dialoogvenster Tekst toevoegen de gewenste tekst in het tekstvak Tekst en schakel het selectievakje Alleen toevoegen aan in. Klik daarna op het keuzemenu hieronder om de gewenste bewerking te kiezen.

Naast de functie Tekst toevoegen biedt Kutools voor Excel meer dan 300 andere handige functies die u ondersteunen bij allerlei Excel-taken. Download het vandaag nog gratis!

Dit gedeelte bevat formules voor het Tekst toevoegen vóór of ná de eerst voorkomende specifieke tekst in Excel.

5,1 Tekst toevoegen vóór de eerste specifieke tekst

Stel bijvoorbeeld dat u „(sale)” wilt Tekst toevoegen vóór de eerste tekst „price” in de cel, zoals in onderstaande schermafbeeldingen wordt weergegeven:

In Excel kunnen de functies VERVANGEN en VERVANGEN.ALLES deze taak perfect uitvoeren.

Functie VERVANGEN

VERVANGEN(cel;VIND.SPEC("zoek_tekst";cel);0;„tekst_toevoegen")

Functie VERVANGEN.ALLES

VERVANGEN.ALLES(cel;"zoek_tekst";„vervang_tekst";1)

Gebruik in dit geval bovenstaande formules als volgt:

=REPLACE(B4,FIND("price",B4),0,„(sale)")

Of

=SUBSTITUTE(B4,"price",„(sale)price",1)

De formuleargumenten in dit geval zijn

Cel: B4,

Zoek_tekst: price,

Tekst_toevoegen: (sale),

Vervang_tekst:(sale)price.

Druk op de toets Enter om het eerste resultaat te krijgen en sleep vervolgens de automatische invulgreep naar de cellen waarop u deze formule wilt toepassen.

5,2 Tekst toevoegen ná de eerste specifieke tekst

Stel bijvoorbeeld dat u het valutasymbool „$” wilt toevoegen ná de eerste dubbele punt „:” in de cel, zoals in onderstaande schermafbeeldingen wordt weergegeven:

In Excel kunnen de functies VERVANGEN en VERVANGEN.ALLES deze taak perfect uitvoeren.

Functie VERVANGEN

VERVANGEN(cel;VIND.SPEC(„zoek_tekst";cel);lengte_zoek_tekst;„vervang_tekst")

Functie VERVANGEN.ALLES

VERVANGEN.ALLES(cel;"zoek_tekst";„vervang_tekst")

Gebruik in dit geval bovenstaande formules als volgt:

=REPLACE(B12,FIND(":",B12),1,„:$")

Of

=SUBSTITUTE(B12,":",„:$")

De formuleargumenten in dit geval zijn

Cel: B12,

Zoek_tekst: :,

Vervang_tekst::$.

Lengte_zoek_tekst:1

Druk op de toets Enter om het eerste resultaat te krijgen en sleep daarna de automatische invulgreep naar de cellen waarop u deze formule wilt toepassen.

In dit gedeelte van de handleiding worden drie verschillende methoden beschreven—formule, Zoeken en Vervangen, en VBA—om tekens vóór of ná elk woord in een cel toe te voegen.

Voeg tekens vóór elk woord toe

Voeg tekens na elk woord toe

6,1 Voeg teken(s) toe vóór of na elk woord met een formule

De functie VERVANGEN.ALLES is perfect geschikt om deze taak uit te voeren. De algemene formules zijn als volgt:

Toevoegen vóór elk woord

„teken"&VERVANGEN.ALLES(tekstreeks; " ";„ teken")

Toevoegen ná elk woord

VERVANGEN.ALLES(tekstreeks;" ";"teken ")&„teken"

Stel dat u „+” vóór elk woord in de lijst B3:B6 wilt toevoegen. Gebruik dan de volgende formule:

=„+"&SUBSTITUTE(B3, " "," +")

Druk op de toets Enter om het eerste resultaat te verkrijgen en sleep daarna de automatische invulgreep omlaag om alle resultaten te genereren.

Stel dat u „($)” ná elk woord in de lijst B11:B14 wilt toevoegen. Gebruik dan de onderstaande formule:

=SUBSTITUTE(B11," ","($) ")&„($)"

Druk op de toets Enter om het eerste resultaat te krijgen en sleep daarna de automatische invulgreep omlaag om alle resultaten te verkrijgen.

6,2 Tekens vóór of ná elk woord toevoegen met Zoeken en Vervangen

Als u tekens vóór elk woord wilt toevoegen, behalve voor het eerste woord, of tekens ná elk woord, behalve na het laatste woord (zoals in de onderstaande schermafbeelding wordt weergegeven), kunt u hiervoor het ingebouwde Excel-hulpprogramma Zoeken en Vervangen gebruiken.

Toevoegen vóór elk woord, met uitzondering van het eerste

Toevoegen ná elk woord, met uitzondering van Laatste

1. Selecteer de cellen waarin u tekens vóór of ná elk woord wilt toevoegen en druk vervolgens op Ctrl+H om het dialoogvenster Zoeken en Vervangen te openen.

2. Typ een spatie in het tekstvak Zoeken naar en typ de nieuwe tekens met een spatie in het tekstvak Vervangen door. Klik tot slot op de knop Alles vervangen.

Hieronder staan twee VBA-codes waarmee u tekens vóór of ná elk woord kunt toevoegen. Voer de code uit door de onderstaande stappen te volgen.

1. Druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het pop-upvenster op Invoegen > Module om een nieuwe lege module in te voegen.

3. Kopieer de onderstaande VBA-code en plak deze in de module.

Toevoegen vóór elk woord

Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
   
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = xInStr & Trim(xStr)
                Else
                    xValue = xValue & " " & xInStr & Trim(xStr)
                    End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

Toevoegen ná elk woord

Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
    On Error Resume Next
 
    Set xSRg = Application.Selection
    Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
   
    xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
    If StrPtr(xInStr) = 0 Then Exit Sub
   
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xArr = Split(xCell.Text, " ")
        xValue = ""
        For Each xStr In xArr
            If Trim(xStr) <> "" Then
                If xValue = "" Then
                    xValue = Trim(xStr) & xInStr
                Else
                    xValue = xValue & " " & Trim(xStr) & xInStr
                End If
            End If
        Next
        xCell.Value = xValue
    Next
    Application.ScreenUpdating = True
End Sub

4. Druk op de toets F5om de code uit te voeren (of klik op de knop)Uitvoeren). Er verschijnt een dialoogvenster waarin u wordt gevraagd aaneengesloten cellen te selecteren. Klik op OK.

5. Typ in het tweede dialoogvenster de tekens die u wilt toevoegen en klik op OK.

Vervolgens worden de tekens toegevoegd aan het begin of einde van elk woord.

Soms wilt u wellicht tekst tussen elk teken invoegen. In dit gedeelte worden twee scenario’s beschreven: het ene is tekst toevoegen tussen elk teken, het andere is spaties invoegen tussen elk cijfer.

7,1 Tekst toevoegen tussen elk teken/cijfer met een gebruikersgedefinieerde functie

Om tekens tussen elk teken in een tekenreeks toe te voegen, kunt u een gebruikersgedefinieerde functie gebruiken.

In dit geval voegen we een spatie toe tussen elk teken.

1. Druk op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.

2. Klik in het verschijnende venster op Invoegen > Module om een nieuwe lege module in te voegen.

3. Kopieer en plak de onderstaande VBA-code in de module.

Tekst toevoegen tussen tekens

Function AddText(Str As String) As String
    Dim i As Long
    For i = 1 To Len(Str)
        AddText = AddText & Mid(Str, i, 1) & " "
    Next i
    AddSpace = Trim(AddSpace)
End Function

4. Sla de code op en sluit dit venster om terug te keren naar het werkblad. Typ vervolgens de volgende formule in een cel waarin u het resultaat wilt weergeven.

=AddText(B3)

B3 is de cel met de tekenreeks waartussen u spaties wilt toevoegen.

5. Druk op de toets Enter om het resultaat te verkrijgen en sleep de automatische invulgreep naar andere cellen voor aanvullende resultaten.

7,2 Spatie tussen elk cijfer toevoegen met een formule

Als u een spatie tussen de cijfers van een numerieke waarde wilt toevoegen, kunt u de FUNCTIE.TEKST gebruiken.

Stel dat er een lijst met 8-cijferige getallen staat in het bereik B10:B12. Selecteer een cel voor het resultaat en voer de volgende formule in:

=TEXT(B10,„# # # # # # # #")

Druk op de toets Enter en sleep vervolgens de automatische invulgreep naar andere cellen.

Als de lengte van de getallen 5 is, wordt de formule als volgt aangepast:=TEXT(B10,„# # # # #").

Als u tekens tussen elk woord wilt invoegen—bijvoorbeeld een spatie tussen voorletters, middenletters en achternaam, zoals in de onderstaande schermafbeelding wordt weergegeven—kunt u een door de gebruiker gedefinieerde functie gebruiken.

1. Druk op Alt+F11om het Microsoft Visual Basic for Applicationsvenster te openen.

2. Klik in het venster dat verschijnt op Invoegen > Module om een nieuwe lege module in te voegen.

3. Kopieer en plak de onderstaande VBA-code in de module.

Tekens tussen woorden invoegen

Function AddCharacters(pValue As String) As String
'UpdatebyExtendoffice20160908
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddCharacters = xOut
End Function

4. Sla de code op en klik op **Dit venster sluiten** om terug te keren naar het werkblad. Voer daarna de onderstaande formule in een cel in waar u het resultaat van de toevoeging wilt weergeven.

=AddCharacters(B3)

B3 is de cel die de tekst bevat waaraan u spaties tussen de woorden wilt toevoegen.

5. Druk op de toets Enter om het resultaat te verkrijgen. Sleep indien nodig de automatische vulgreep over andere cellen om meer resultaten te verkrijgen.

Om specifieke tekens in te voegen bij het splitsen van tekst en nummers, zoals weergegeven in de onderstaande schermafbeelding, worden hier twee methoden beschreven.

9,1 Teken tussen Splitsen op tekst en nummer invoegen met formule

Als de tekst aan het begin van de getallen staat, luidt de algemene formule als volgt:

TRIM(REPLACE(tekst;MIN(FIND({1,2,3,4,5,6,7,8,9,0};tekst&"1234567890"));0;"-"))

Gebruikmakend van bovenstaand voorbeeld, dient u de volgende formule te gebruiken:

=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))

Druk op de toets Enter om het eerste resultaat te verkrijgen. Sleep daarna de automatische vulgreep naar andere cellen om de formule te kopiëren.

Als de getallen aan het begin van de tekst staan, luidt de algemene formule als volgt:

LEFT(tekst;SUM(LEN(tekst)-LEN(SUBSTITUTE(tekst;{0,1,2,3,4,5,6,7,8,9};""))))&"."&RIGHT(tekst;LEN(B13)- SUM(LEN(tekst)-LEN(SUBSTITUTE(tekst; {0,1,2,3,4,5,6,7,8,9}; „"))))

Gebruikmakend van bovenstaand voorbeeld, dient u de volgende formule te gebruiken:

=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT(B13;LEN(B13)- SUM(LEN(B13)-LEN(SUBSTITUTE(B13; {0;1;2;3;4;5;6;7;8;9}; „"))))

Druk op de toets Enter om het eerste resultaat te verkrijgen. Sleep daarna de automatische vulgreep naar andere cellen om de formule te kopiëren.

9,2 Teken tussen Splitsen op tekst en nummer invoegen met Flash Fill

Als u Excel 2013 of een nieuwere versie gebruikt, kan de functie Flash Fill u ook helpen om tekens in te voegen bij het splitsen van tekst en cijfers.

Typ naast de oorspronkelijke gegevens de nieuwe gegevens met de ingevoegde tekens tussen Splitsen op tekst en nummer. Druk vervolgens op Enter om naar de cel onder het eerste resultaat te gaan.

Druk vervolgens op de toetsencombinatie Ctrl+E om Flash Fill in te schakelen.

Uitbreiding

Deze handleiding beschrijft ook enkele praktijkvoorbeelden van Tekst toevoegen die u in uw dagelijks leven of werk kunt tegenkomen.

Soms moet u scheidingstekens zoals streepjes toevoegen aan een reeks telefoonnummers of burgerservicenummers, zoals op de onderstaande schermafbeelding is te zien. Handmatig typen wordt al snel vermoeiend als u honderden nummers moet aanpassen. In dit gedeelte leest u over drie slimme methoden om deze taak razendsnel uit te voeren.

10,1 Streepjes aan getallen toevoegen met formule

Hieronder vindt u twee formules waarmee u snel streepjes aan getallen kunt toevoegen. Gebruik de volgende formule om streepjes in te voegen na het derde en zesde cijfer in cel B3:

Functie VERVANGEN

=REPLACE(REPLACE(B3,4,0,"-"),8,0,"-")

TEKST-functie

=TEXT(B3,„???-???-??? ")

Druk op de toets Enter om het eerste resultaat te krijgen. Sleep daarna de automatische vulgreep naar andere cellen.

10,2 Streepjes aan getallen toevoegen met Celopmaak instellen

Om streepjes direct aan de getallen in de oorspronkelijke cellen toe te voegen, kunt u de functie Celopmaak instellen gebruiken.

1. Selecteer de getallen waaraan u streepjes wilt toevoegen en druk op de toetsencombinatie Ctrl+1 om het dialoogvenster Celopmaak instellen te openen.

2. Ga in het dialoogvenster Celopmaak instellen naar het tabblad Getal en kies Aangepast in het gedeelte Categorie.

3. Typ vervolgens in het gedeelte Type aan de rechterkant ###-###-### in het tekstvak en klik op OK.

De geselecteerde getallen zijn nu voorzien van streepjes.

10,3 Streepjes aan Telefoonnummer toevoegen met Tekst toevoegen van Kutools voor Excel

Als u Kutools voor Excel in Excel heeft geïnstalleerd, kan de functie Tekst toevoegen u ook van dienst zijn.

1. Selecteer de cellen met de getallen waaraan u streepjes wilt toevoegen en klik op Kutools>Tekst>Tekst toevoegen.

2. Typ in het dialoogvenster Tekst toevoegen het streepje of een ander scheidingsteken in het tekstvak Tekst, kies de optie Opgeven en typ de posities waarachter u streepjes wilt invoegen, gescheiden door komma’s, in het onderstaande tekstvak.

3. Klik op Ok of Toepassen. De geselecteerde getallen zijn nu voorzien van streepjes.

Download Tekst toevoegen gratis en probeer het 30 dagen lang uit.

Stel dat u een lijst met getallen van verschillende lengtes hebt en u wilt voorloopnullen toevoegen, zodat ze allemaal dezelfde lengte krijgen en er netjes uitzien – zoals te zien is in de schermafbeelding hieronder. Hieronder worden twee methoden beschreven om dit eenvoudig voor elkaar te krijgen.

11,1 Voorloopnullen aan cellen toevoegen met de functie Celopmaak instellen

U kunt de functie Celopmaak instellen gebruiken om een aangepast formaat in te stellen waarmee de celinhoud automatisch wordt aangevuld met voorloopnullen tot een vaste lengte.

1. Selecteer de cellen waaraan u voorloopnullen wilt toevoegen en druk op Ctrl+1 om het dialoogvenster Celopmaak instellen te openen.

2. Ga in het dialoogvenster Celopmaak instellennaar het tabblad Getalen kies Aangepastin het gedeelte Categorie.

3. Typ vervolgens in het gedeelte Type aan de rechterkant 0000 in het tekstvak (om de getallengrootte vast te stellen op 4 cijfers, typt u 0000; u kunt dit aanpassen naar een andere lengte, bijvoorbeeld 5 cijfers, dan typt u 00000) en klik op OK.

De getallen zijn nu voorzien van voorloopnullen en hebben allemaal dezelfde lengte.

11,2 Voorloopnullen aan Formule toevoegen

Als u de oorspronkelijke gegevens intact wilt laten, kunt u een formule gebruiken om voorloopnullen toe te voegen aan getallen op een andere locatie.

Hiervoor zijn drie functies beschikbaar.

Formule 1: TEKST-functie

TEKST(getal;„00…")

Formule 2: RECHTS-functie

RECHTS(„00…"&getallengte)

Formule 3: GRONDGETAL-functie

GRONDGETAL(getal;10;lengte)

Het aantal nullen in de formule komt overeen met de gewenste lengte van het getal.

Als u een lengte van 4 cijfers instelt, gebruikt u de volgende formules:

=TEXT(B10,"0000")

=RIGHT("0000"&B10,4)

=GRONDGETAL(B10;10;4)

Druk op de toets Enter en sleep de automatische vulgreep omlaag.

Als u achterloopnullen wilt toevoegen aan getallen om een vaste lengte te verkrijgen — bijvoorbeeld om de getallen in cel B3:B7 aan te vullen tot een lengte van 5 cijfers, zoals weergegeven in de onderstaande schermafbeelding — kunt u hiervoor een formule gebruiken.

REPT-functie

getal&REPT("0",lengte-LENGTE(getal))

In de formule vertegenwoordigt het argument **„getal"** het getal of de celverwijzing waaraan u achterloopnullen wilt toevoegen, en geeft het argument **„lengte"** de gewenste vaste lengte aan.

Gebruik de formule als volgt:

=B3&REPT("0",5-LEN(B3))

Druk op Enter en sleep de automatische vulgreep naar beneden naar de cellen waarin deze formule nodig is.

Als u gegevens uit een werkblad naar een kladblok exporteert of kopieert, kunnen de teksten onoverzichtelijk overkomen doordat de celwaarden verschillende lengtes hebben. Om ze netjes weer te geven, zoals in de onderstaande schermafbeelding, voegt u achterloopspaties toe.

De REPT-functie helpt u deze taak op te lossen.

LINKS(tekst & REPT(„ ",max_lengte),max_lengte)

In de formule is het argument „tekst" de tekst of celverwijzing waaraan u achterloopspaties wilt toevoegen, en is „max_lengte" de vaste lengte die u voor de teksten wenst; deze moet langer zijn dan of gelijk aan de maximale lengte van de gebruikte teksten.

Gebruik de volgende formule om achterloopspaties toe te voegen aan de teksten in cel B3:C6:

=LEFT(B3 & REPT(„ ",10),10)

Druk op Enter en sleep vervolgens de automatische vulgreep naar alle cellen waarvoor u deze formule nodig heeft.

In dit geval gebruiken we 10, omdat de langste gebruikte tekst uit 9 tekens bestaat.

Soms wilt u aanhalingstekens of haakjes rond tekst of getallen in cellen plaatsen, zoals in de onderstaande schermafbeelding wordt weergegeven. In plaats van alles handmatig één voor één te typen, kunt u in Excel op twee manieren dit snel en eenvoudig regelen.

14,1 Aanhalingstekens/haakjes toevoegen met Celopmaak instellen

Als u aanhalingstekens rond tekst in de oorspronkelijke gegevens wilt plaatsen, kan de functie Celopmaak instellen in Excel u daarbij helpen.

1. Selecteer de cellen waaraan u aanhalingstekens wilt toevoegen en druk op Ctrl+1 om het dialoogvenster Celopmaak instellen te openen.

2. Ga in het dialoogvenster Celopmaak instellen naar het tabblad Getal, kies Aangepast in de lijst onder Categorie, ga vervolgens naar het rechterdeel en typ "''"@„''" in het tekstvak Type. Klik op OK.

De tekst in de geselecteerde cellen is nu voorzien van aanhalingstekens.

Als u haakjes rond de tekst wilt plaatsen, typt u (@) in het veld 'Type' van het dialoogvenster Celopmaak instellen.

14,2 Aanhalingstekens/haakjes toevoegen met formules

U kunt ook formules gebruiken om aanhalingstekens toe te voegen aan tekst uit andere cellen.

Gebruik de &-operator

""""&tekst&""„"

Of

TEKEN(34)&tekst&TEKEN(34)

In dit geval bevindt de tekst zich in cel B11; gebruik dan de volgende formules:

=""""&B11&""""

Of

=TEKEN(34)&B11&TEKEN(34)

Druk op Enter en sleep de automatische vulgreep naar beneden om de cellen in te vullen.

Wilt u haakjes rond tekst plaatsen? Gebruik dan de formule "("&tekst&„)".

14,3 Aanhalingstekens/haakjes toevoegen met VBA

Als u VBA-code nodig heeft om deze taak uit te voeren, is hier een handig VBA-script.

1. Druk op Alt+F11om het venster Microsoft Visual Basic for Applicationste openen.

2. Klik in het verschijnende venster op Invoegen > Module om een nieuwe lege module in te voegen.

3. Kopieer en plak de onderstaande VBA-code in de nieuwe module.

VBA: Aanhalingstekens rond teksten plaatsen

Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = """" & Rng.Value & """"
Next
End Sub

4. Druk op F5 of klik op de knop Uitvoeren in het venster om de VBA-code uit te voeren. Er verschijnt een dialoogvenster waarin u cellen kunt selecteren om aanhalingstekens toe te voegen.

5. Klik op OK. De aanhalingstekens zijn nu rond de tekst in de geselecteerde cellen geplaatst.

Soms wilt u andere gebruikers beter helpen begrijpen wat de gegevens betekenen door tekst toe te voegen aan de formuleresultaten, zoals in de onderstaande schermafbeelding wordt weergegeven. Om tekst op te nemen in een formule, plaatst u de tekst tussen dubbele aanhalingstekens en combineert u deze met de formule met behulp van de &-operator.

Voorbeeld 1 Tekst toevoegen vóór de formule

„Vandaag is "&TEKST(VANDAAG(),„dddd, mmmm dd.")

Voorbeeld 2 Tekst toevoegen nade formule

TEKST(NU(),"UU:MM:SS")&„ is de huidige tijd."

Voorbeeld 3 Tekst toevoegen aan beide zijden van de formule

„Vandaag verkocht "&gegevens&„ kg."

---

De beste kantoorproductiviteitstools

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80 %

• Super Formulebalk (bewerk eenvoudig meerdere regels tekst en formules); Leeslay-out (lees en bewerk gemakkelijk grote aantallen cellen); Plakken naar Filterbereik...
• Samengevoegde cellen/rijen/kolommen en bijbehorende gegevens behouden; inhoud van cellen splitsen; Dubbele rijen combineren en som/gemiddelde berekenen... Voorkom dubbele invoer in cellen; Bereiken vergelijken...
• Selecteer dubbele of unieke rijen; selecteer lege rijen (alle cellen zijn leeg); superzoeken en fuzzy zoeken in meerdere werkmappen; willekeurig selecteren...
• Exacte kopie van meerdere cellen zonder dat u de formuleverwijzing hoeft te wijzigen; automatisch verwijzingen maken naar meerdere werkbladen; opsommingstekens invoegen, selectievakjes en meer...
• Favoriete formules, berekeningen, grafieken en afbeeldingen snel invoegen;Cellen met wachtwoord versleutelen;Mailinglijst maken en e-mails verzenden...
• Tekst extraheren, tekst toevoegen, tekens verwijderen op een bepaalde positie, spaties verwijderen; gegevensbladstatistieken maken en afdrukken; converteren tussen celinhoud en opmerkingen...
• Superfilter (sla filterinstellingen op en pas ze toe op andere werkbladen); Geavanceerd sorteren per maand, week, dag, frequentie en meer; Speciaal filter op vet, cursief...
• Combineer werkmappen en werkbladen; voeg tabellen samen op basis van een sleutelkolom; splits gegevens op in meerdere werkbladen; batchconverteer xls-, xlsx- en PDF-bestanden...
• Groepeer draaitabel op weeknummer, dag van de week en meer...Toon niet-vergrendelde en vergrendelde selecties met verschillende kleuren;Markeer cellen met formules of namen...

Meer lezen...Volledige functionaliteit – 30 dagen gratis proefversie...Aanschaffen... 

---

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!

Meer lezen...Volledige functionaliteit – 30 dagen gratis proefversie...Aanschaffen...