Wie kann man die Größe des Textfelds automatisch an den Inhalt in Excel anpassen?
Die Größe des Textfelds ist nach dem Einfügen in ein Arbeitsblatt festgelegt. Daher passt sich die Größe nicht an den eingefügten oder gelöschten Text an. Dieser Artikel zeigt Ihnen Methoden, um ein Textfeld automatisch an seinen Inhalt in Excel anzupassen.
Textfeld automatisch an den Inhalt anpassen durch die Funktion „Größe der Form an Text anpassen“
Alle Textfelder automatisch per VBA-Code an den Inhalt anpassen
Textfeld automatisch an den Inhalt anpassen durch die Funktion „Größe der Form an Text anpassen“
Sie können die Eigenschaft des Textfelds wie folgt ändern, damit es sich automatisch mit dem eingegebenen oder gelöschten Text vergrößert oder verkleinert.
1. Klicken Sie nach dem Einfügen des Textfelds mit der rechten Maustaste auf den Rahmen des Textfelds und dann im Kontextmenü auf „Größe und Eigenschaften“. Siehe Screenshot:
2. Sie sehen ein Format Shape Fenster wird auf der rechten Seite des Arbeitsblatts unter dem Größe und Eigenschaften 
Tab angezeigt. Aktivieren Sie das Kontrollkästchen Formgröße an Text anpassen im Abschnitt Text Box und schließen Sie dann das Fenster Format Shape . Siehe Screenshot:
Ab sofort wird sich das Textfeld automatisch an den Inhalt anpassen.
Hinweis: Bei dieser Methode müssen Sie bei mehreren zu ändernden Textfeldern die Eigenschaften jedes Textfelds einzeln anpassen.
Alle Textfelder automatisch per VBA-Code an den Inhalt anpassen
Für ein Arbeitsblatt, das bereits mehrere Textfelder enthält, kann der folgende VBA-Code helfen, diese automatisch auf einmal an den Inhalt anzupassen.
1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Alle Textfelder automatisch an den Inhalt eines Arbeitsblatts anpassen
Sub TextBoxResizeTB()
Dim xShape As Shape
Dim xSht As Worksheet
On Error Resume Next
For Each xSht In ActiveWorkbook.Worksheets
For Each xShape In xSht.Shapes
If xShape.Type = 17 Then
xShape.TextFrame2.AutoSize = msoAutoSizeShapeToFitText
xShape.TextFrame2.WordWrap = True
End If
Next
Next
End Sub3. Drücken Sie die Taste F5, um den Code auszuführen. Dann sehen Sie, dass alle Textfelder im aktuellen Arbeitsblatt automatisch an ihren Inhalt angepasst werden, wie im folgenden Screenshot dargestellt.
Und diese Textfelder werden sich künftig automatisch mit dem Inhalt, den Sie eingeben oder löschen, anpassen.
Verwandter Artikel:
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins