Note: The other languages of the website are Google-translated. Back to English

Wie konvertiere ich Text in einem Textfeld in Zelleninhalt in Excel?

Wenn ein Blatt einige Textfelder enthält und Sie den Inhalt der Textfelder separat in Zellen konvertieren möchten (siehe Abbildung unten), gibt es schnelle Möglichkeiten, diesen Job zu lösen, außer nacheinander in Excel einzugeben? In diesem Artikel stelle ich ein Makro vor, um Ihnen bei diesem Problem einen Gefallen zu tun.
doc konvertiert Textfeld in Zelle 1

Konvertieren Sie Textfeldinhalte mit VBA in Zellen


Pfeil blau rechte Blase Konvertieren Sie Textfeldinhalte mit VBA in Zellen

Außer Makrocode gibt es keinen Trick, mit dem Textfelder schnell in Zelleninhalte konvertiert werden können.

1. Drücken Sie Alt + F11 zu aktivierende Tasten Microsoft Visual Basic für Applikationen Fenster.

2 Klicken Insert > Modul, und fügen Sie dann den folgenden Code in das ein Modul Skripte.

VBA: Konvertieren Sie Textfelder in Zellen

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

doc konvertiert Textfeld in Zelle 2

3. Drücken Sie F5 Mit der Taste zum Ausführen des Codes wird ein Dialogfeld angezeigt, das Sie daran erinnert, eine Zelle zum Exportieren des Textfeldinhalts auszuwählen. Siehe Screenshot:
doc konvertiert Textfeld in Zelle 3

4 Klicken OK. Jetzt wurden alle Textfelder in Zelleninhalte konvertiert.
doc konvertiert Textfeld in Zelle 4

Tipp: Oben VBA entfernt die Textfelder nach dem Ausführen, wenn Sie die Textfelder behalten möchten, ändern Sie bitte den Code xTxtBox.Löschen zu 'xTxtBox.Löschen.

Erweiterung:Wenn Sie schnell zwischen Zahl und Text konvertieren möchten, versuchen Sie bitte, die Kutools für Excel zu verwenden Konvertieren Sie zwischen Text und Zahl wie im folgenden Screenshot gezeigt. Es ist voll funktionsfähig ohne Einschränkung in

Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. 
Tage, Bitte laden Sie es herunter und testen Sie es jetzt kostenlos.
doc konvertiert Textfeld in Zelle 5


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten

 

Kommentare (13)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
VBA funktioniert nicht?!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hier funktioniert es perfekt. Was passiert, während Sie den Code ausführen? Es ändert nichts? Wenn Sie könnten, beschreiben Sie bitte mehr über Ihre Daten und Ihr Problem. Danke.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert hier auch nicht. Wählen Sie die Zielzelle aus, klicken Sie auf OK, und nichts passiert.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe es in Win10 Excel2016 und Win8 Excel2010 ausprobiert, es funktioniert beides. Welche Arbeitsumgebung verwenden Sie?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe viele Felder in verschiedenen Blättern. Es gibt 4 Blätter mit bestimmten Ereignissen an einem bestimmten Tag, und ich möchte diese Textfelder eines bestimmten Tages mit einem neuen Blatt für diesen Tag kombinieren. Wie es funktioniert, habe ich keine Ahnung, wie ich es bekomme dass Daten von 4 verschiedenen Blatt zu einem Blatt.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Okay, ich habe Textbox in Textbox, die extrahiert werden muss.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank! Buen aporte. Ich ayudó mucho.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
No me funcionó. Hago todo lo señalado y no pasa nada después de apretar enter. Intenté algunos cambios en la programación y tampoco
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, Juan, es gibt keine Eingabetaste, die in der obigen Methode erwähnt wird, kopieren und fügen Sie die vba ein, drücken Sie dann die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um den Code zu aktivieren.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe es in Excel365 versucht und es funktioniert nicht, ich bekomme das Popup und dann fülle ich es aus, aber dann passiert nichts, danke für die Hilfe, Michel
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Michel, ich habe den Code in Excel 365 getestet, er funktioniert korrekt. Könnten Sie mir ein Bild über Ihre Excel-Version geben (Datei > Konto)https://www.extendoffice.com/images/stories/comments/sun-comment/Excel_version.png, und das Bild über den Inhalt Ihrer Textfelder?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, sonnig. Ich möchte eine Lösung in Excel. Ich habe eine Webseite mit Daten kopiert und eingefügt. dabei enthält jedes Textfeld einige Zahlen. Ich kann es nicht als reguläre Zahl in einer Excel-Zelle konvertieren, die eine bestimmte Spalte enthält. Ich verwende Excel 2007.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, sonnig. Ich möchte eine Lösung in Excel. Ich habe eine Webseite mit Daten kopiert und eingefügt. dabei enthält jedes Textfeld einige Zahlen. Ich kann es nicht als reguläre Zahl in einer Excel-Zelle konvertieren, die eine bestimmte Spalte enthält. Ich verwende Excel 2007.Dein zu verlinkender Text
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL