Wie wandelt man Text aus einem Textfeld in Zelleninhalt in Excel um?
Wenn sich mehrere Textfelder in einem Arbeitsblatt befinden und Sie deren Inhalte einzeln in Zellen übertragen möchten – wie im folgenden Screenshot gezeigt –, gibt es dann eine schnelle Möglichkeit, dies zu erledigen, ohne jeden Eintrag manuell eingeben zu müssen? In diesem Artikel stelle ich ein Makro vor, das Ihnen genau dabei hilft.
Textfeldinhalte mithilfe von VBA in Zellen konvertieren
Textfeldinhalte mithilfe von VBA in Zellen konvertieren
Abgesehen vom Makrocode gibt es keinen schnellen Weg, um Textfelder in Zelleninhalte umzuwandeln.
1. Drücken Sie Alt + F11, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie anschließend den folgenden Code in das Modul-Skript ein.
VBA: Textfeld in Zelle konvertieren
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. Drücken Sie die F5-Taste, um den Code auszuführen. Es erscheint ein Dialogfeld, in dem Sie aufgefordert werden, eine Zelle für den Export der Textfeldinhalte auszuwählen. Siehe Screenshot:
4. Klicken Sie auf OK. Alle Textfelder wurden nun in Zelleninhalte konvertiert.
Tipp: Das obige VBA-Makro löscht die Textfelder nach der Ausführung. Wenn Sie die Textfelder behalten möchten, ändern Sie die Codezeile xTxtBox.Delete in 'xTxtBox.Delete.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins