Wie kann man das Kommentarfeld automatisch an seinen Inhalt in Excel anpassen?

Wenn Sie Kommentare in Zellen einfügen, hat das Kommentarfeld eine Standardgröße. Wenn Sie viel Inhalt eingeben, wird ein Teil des Inhalts möglicherweise nicht direkt sichtbar sein. Ist es möglich, die Größe des Kommentarfelds automatisch an seinen Inhalt anzupassen?

Kommentarfeld automatisch an seinen Inhalt in einem Arbeitsblatt anpassen
Kommentarfeld automatisch an seinen Inhalt in einem Zellbereich anpassen
Kommentarfeld mit einem erstaunlichen Tool automatisch an seinen Inhalt im aktiven oder allen Arbeitsblättern anpassen

Kommentarfeld automatisch an seinen Inhalt in einem Arbeitsblatt anpassen

In Excel können Sie das Kommentarfeld manuell auf die gewünschte Größe ziehen, aber wenn viele Kommentarfelder angepasst werden müssen, ist dieser Weg mühsam und zeitaufwendig. In diesem Fall können Sie den folgenden VBA-Code verwenden.

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie das folgende Makro im Modulfenster ein.

VBA-Code: Automatische Größenanpassung von Kommentarfeldern in einem Arbeitsblatt

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

3. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und alle Kommentarfelder im aktiven Arbeitsblatt werden so angepasst, dass sie ihren Inhalt anzeigen, wie im folgenden Screenshot dargestellt:

Hinweis: Dieser Code funktioniert nur im aktuellen Arbeitsblatt und kann keine neuen Kommentarfelder automatisch anpassen.

Kommentarfeld automatisch an seinen Inhalt in einem Zellbereich anpassen

Wenn Sie nur einen Bereich von Zellenkommentaren automatisch anpassen möchten, können Sie den folgenden VBA-Code verwenden.

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie das folgende Makro im Modulfenster ein.

VBA-Code: Automatische Größenanpassung von Kommentarfeldern in einem Zellbereich

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

3. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und ein Eingabefenster erscheint, das Sie auffordert, einen Zellbereich auszuwählen, dessen Kommentarfelder Sie anpassen möchten, siehe Screenshot:

4. Klicken Sie dann auf OK, und Ihre ausgewählten Zellenkommentarfelder wurden automatisch an die Kommentarinhalte angepasst.

Hinweis: Dieser Code kann keine neuen Kommentarfelder automatisch anpassen.

Kommentarfeld automatisch an seinen Inhalt im aktiven oder allen Arbeitsblättern anpassen

Sie können die AutoFit Comment Funktion von Kutools for Excel verwenden, um alle Kommentarfelder im aktiven Blatt oder allen Blättern in Excel automatisch zu vergrößern.Bitte gehen Sie wie folgt vor.

1. Um Kommentarfelder automatisch an ihren Inhalt im aktiven Arbeitsblatt anzupassen, klicken Sie bitte auf Kutools > Mehr > AutoFit Comment > Aktuelles Arbeitsblatt.

Wenn Sie alle Kommentarfelder in der gesamten Arbeitsmappe automatisch anpassen möchten, klicken Sie bitte auf Kutools > Mehr > AutoFit Comment > Alle Arbeitsblätter. Siehe Screenshot:

Dann werden alle Kommentarfelder automatisch an ihre Inhalte angepasst. Siehe Screenshot:

Hinweise:

• 1. Nachdem die Kommentarfelder automatisch angepasst wurden, wird das Kommentarfeld beim nächsten Bearbeiten automatisch mit dem Inhalt expandieren oder schrumpfen.
• 2. Für neu eingefügte Kommentare müssen Sie diese AutoFit-Kommentarfunktion erneut aktivieren, um alle neu eingefügten Kommentarfelder anzupassen.

Verwandte Artikel:

• Wie ändert man die Form des Kommentarfelds in Excel?
• Wie ändert man alle Kommentarformate in Zellen in Excel?
• Wie listet man alle Kommentare in ein neues Arbeitsblatt oder eine neue Arbeitsmappe in Excel auf?
• Wie fügt man ein Bild oder eine Grafik in einen Kommentar in Excel ein?