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 Sub

3. 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:

• Wie passt man Kommentarfelder automatisch an ihren Inhalt in Excel an?