Hoe teksten van meerdere cellen samen te voegen in een tekstvak in Excel?

Het kan voor u gemakkelijk zijn om teksten van meerdere cellen samen te voegen tot een nieuwe cel met formule. Maar weet u hoe u meerdere celwaarden samenvoegt in een tekstvak (ActiveX-besturingselement)? Eigenlijk kan de methode in dit artikel u helpen om dit te bereiken.

Voeg teksten van meerdere cellen samen in een tekstvak met VBA-code

Voeg teksten van meerdere cellen samen in een tekstvak met VBA-code

Verbazingwekkend! Efficiënte tabbladen gebruiken in Excel zoals Chrome, Firefox en Safari!

Bespaar 50% van uw tijd en verminder elke dag duizenden muisklikken!

De onderstaande methode kan u helpen om teksten van meerdere cellen samen te voegen tot een tekstvak in Excel.

1. In het werkblad dat u meerdere cellen wilt samenvoegen, voegt u een tekstvak in door op te klikken Ontwikkelaar > Invoegen > Tekstvak (ActiveX-besturingselement). Zie screenshot:

2. Dan klikken Ontwikkelaar > Invoegen > Commandoknop (ActiveX-besturingselement) om een ​​opdrachtknop in het werkblad in te voegen.

3. Klik met de rechtermuisknop op de ingevoegde opdrachtknop en selecteer Bekijk code vanuit het contextmenu. Zie screenshot:

4. In de Microsoft Visual Basic voor toepassingen venster, vervang dan de originele code door onderstaande VBA-code.

VBA-code: voeg teksten van meerdere cellen samen in een tekstvak

Private Sub CommandButton1_Click()
    Dim xRg As Range
    Dim xCell As Range
    Dim xStr As String
    On Error Resume Next
    Set xRg = Application.Selection
    If xRg Is Nothing Then Exit Sub
    With Me.TextBox1
        .Text = vbNullString
        .MultiLine = True
        .WordWrap = True
        For Each xCell In xRg
            xStr = xCell.Value
            .Text = Me.TextBox1 & xStr & Chr(10)
        Next
    End With
End Sub

Opmerking:: CommandButton1 is de naam van de ingevoegde opdrachtknop. Wijzig het op basis van uw behoefte.

5. Schakel de ontwerpmodus uit door op te klikken Ontwikkelaar > Ontwerpmodus.

6. Selecteer de cellen die u nodig hebt om de teksten samen te voegen tot een tekstvak en klik vervolgens op de Command-knop. En dan wordt de inhoud van alle geselecteerde cellen onmiddellijk samengevoegd in het tekstvak, zoals hieronder wordt getoond.

Gerelateerde artikelen:

• Hoe automatisch tekst van een tekstvak selecteren wanneer deze is geselecteerd in Excel?
• Hoe een tekstvak automatisch aanvullen tijdens het typen in Excel?
• Hoe de inhoud van het tekstvak te wissen wanneer erop wordt geklikt in Excel?
• Hoe kan ik bewerken in tekstvak uitschakelen om te voorkomen dat de gebruiker in Excel invoert?
• Hwil je een tekstvak opmaken als een percentage in Excel?

De beste tools voor kantoorproductiviteit

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

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

• Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
• Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
• Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!

Lees verder... Gratis download... Aankoop...