Hoe converteer je tekst in een tekstvak naar celinhoud in Excel?

Als er enkele tekstvakken in een werkblad staan en je wilt de inhoud van de tekstvakken afzonderlijk omzetten naar cellen, zoals in onderstaande schermafbeelding te zien is, zijn er dan snelle manieren om dit te doen zonder alles handmatig in Excel in te voeren? In dit artikel introduceer ik een macro die je hierbij kan helpen.

Converteer tekstvakinhoud naar cel met VBA

Converteer tekstvakinhoud naar cel met VBA

Afgezien van macrocode is er geen truc die tekstvakken snel kan omzetten naar celinhoud.

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

2. Klik op Invoegen > Module en plak vervolgens onderstaande code in het Module-script.

VBA: Converteer tekstvakken naar cel

Sub TextboxesToCell()
'UpdatebyExtendoffice20160918
    Dim xRg As Range
    Dim xRow As Long
    Dim xCol As Long
    Dim xTxtBox As TextBox
    
    Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    xRow = xRg.Row
    xCol = xRg.Column
    
    For Each xTxtBox In ActiveSheet.TextBoxes
        Cells(xRow, xCol).Value = xTxtBox.Text
        xTxtBox.Delete
        xRow = xRow + 1
    Next
    
End Sub

3. Druk op F5 toets om de code uit te voeren. Er verschijnt een dialoogvenster waarin je wordt gevraagd een cel te selecteren om de tekstvakinhoud naar te exporteren. Zie screenshot:

4. Klik op OK. Nu zijn alle tekstvakken geconverteerd naar celinhoud.

Tip: Bovenstaande VBA verwijdert de tekstvakken na het uitvoeren. Als je de tekstvakken wilt behouden, verander dan de code xTxtBox.Delete naar 'xTxtBox.Delete.

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!