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

Het kan eenvoudig zijn om teksten van meerdere cellen samen te voegen in een nieuwe cel met behulp van een formule. Maar weet je hoe je waarden uit meerdere cellen kunt samenvoegen in een tekstvak (ActiveX Control)? Eigenlijk kan de methode in dit artikel je helpen om dit te bereiken.

Teksten van meerdere cellen samenvoegen in een tekstvak met VBA-code

Teksten van meerdere cellen samenvoegen in een tekstvak met VBA-code

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

1. Voeg in het werkblad waarin je meerdere cellen wilt samenvoegen, een tekstvak in door te klikken op Developer > Insert > Text Box (ActiveX Control). Zie screenshot:

2. Klik vervolgens op Developer > Insert > Command Button (ActiveX Control) om een opdrachtknop in het werkblad in te voegen.

3. Klik met de rechtermuisknop op de ingevoegde opdrachtknop en selecteer View Code in het contextmenu. Zie screenshot:

4. Vervang in het Microsoft Visual Basic for Applications-venster de originele code door de volgende VBA-code.

VBA-code: Teksten van meerdere cellen samenvoegen 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. Pas deze aan indien nodig.

5. Schakel de Ontwerpmodus uit door te klikken op Developer > Design Mode.

6. Selecteer de cellen waarvan je de teksten in een tekstvak wilt samenvoegen, klik dan op de Opdrachtknop. Alle geselecteerde celleninhouden worden onmiddellijk samengevoegd in het tekstvak zoals te zien is in onderstaande screenshot.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!

Gerelateerde artikelen:

• Hoe automatisch tekst in een tekstvak te selecteren wanneer het wordt geselecteerd in Excel?
• Hoe een tekstvak automatisch aan te vullen tijdens het typen in Excel?
• Hoe de inhoud van een tekstvak te wissen wanneer erop geklikt wordt in Excel?
• Hoe bewerken in een tekstvak uit te schakelen om gebruikersinvoer te voorkomen in Excel?
• Hoe een tekstvak op te maken als een percentage in Excel?