Direkt zum Inhalt

Wie kann ich das Kommentarfeld automatisch an den Inhalt in Excel anpassen?

Wenn Sie Kommentare in Zellen einfügen, ist die Größe des Kommentarfelds die Standardeinstellung. Wenn Sie viele Inhalte eingeben, werden einige Inhalte nicht direkt angezeigt. Ist es möglich, die Größe des Kommentarfelds automatisch an den Inhalt anzupassen?

Kommentarfeld automatisch anpassen, um den Inhalt in ein Arbeitsblatt einzufügen
Kommentarfeld mit automatischer Größe, um den Inhalt in eine Reihe von Zellen einzufügen
Einfaches Kommentarfeld in der automatischen Größe, um den Inhalt mit einem erstaunlichen Werkzeug in das aktive Blatt oder das gesamte Blatt einzupassen


Kommentarfeld automatisch anpassen, um den Inhalt in ein Arbeitsblatt einzufügen

In Excel können Sie das Kommentarfeld einzeln manuell auf Ihre gewünschte Größe ziehen. Wenn jedoch zahlreiche Kommentarfelder in der Größe geändert werden müssen, ist dies auf diese Weise mühsam und zeitaufwändig. In diesem Fall können Sie den folgenden VBA-Code anwenden.

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.

2 Klicken Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modulfenster.

VBA-Code: Kommentarfelder in einem Arbeitsblatt werden automatisch angepasst

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 F5 Der Schlüssel zum Ausführen dieses Codes und alle Kommentarfelder im aktiven Arbeitsblatt wurden so angepasst, dass sie dem folgenden Screenshot entsprechen:

Kommentar zur automatischen Größe des Dokuments1

Tipp: Dieser Code funktioniert nur im aktuellen Arbeitsblatt und kann die Größe der neuen Kommentarfelder, die Sie hinzufügen, nicht automatisch ändern.


Ein Klick, um die Größe des Kommentarfelds in Excel automatisch an den Inhalt anzupassen:

Das Autofit-Kommentar Nutzen von Kutools for Excel kann helfen, die Größe des Kommentarfelds schnell an den Inhalt eines Arbeitsblatts anzupassen, wie in der folgenden Demo gezeigt. Jetzt herunterladen und ausprobieren! (30 Tage kostenloser Trail)


Kommentarfeld mit automatischer Größe, um den Inhalt in eine Reihe von Zellen einzufügen

Wenn Sie nur eine Reihe von Zellenkommentarfeldern automatisch in der Größe anpassen müssen, können Sie den folgenden VBA-Code verwenden.

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen-Fenster.

2 Klicken Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modulfenster.

VBA-Code: Kommentarfelder in einer Reihe von Zellen werden automatisch angepasst

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 F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, einen Zellbereich auszuwählen, dessen Größe Sie in den Kommentarfeldern ändern möchten. Siehe Screenshot:

doc-resize-comment-box3

4. Und dann klicken OKwurden Ihre ausgewählten Zellenkommentarfelder automatisch an den Kommentarinhalt angepasst.

Tipp: Dieser Code kann die Größe der neuen Kommentarfelder, die Sie hinzufügen, nicht automatisch ändern.


Kommentarfeld in automatischer Größe, um den Inhalt in das aktive Blatt oder in das gesamte Blatt einzupassen 

Sie können das versuchen AutoFit-Kommentar Nutzen von Kutools for Excel um automatisch die Größe zu ändern aAlle Kommentarfelder im aktiven Blatt oder alle Blätter in Excel. Bitte gehen Sie wie folgt vor.

Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.

1. Klicken Sie auf, um die Größe der Kommentarfelder so zu ändern, dass ihr Inhalt in das aktive Blatt passt Kutoolen > Mehr > AutoFit-Kommentar > Aktives Blatt.

Wenn Sie die Größe aller Kommentarfelder in der gesamten Arbeitsmappe automatisch ändern möchten, klicken Sie auf Kutoolen > Mehr > AutoFit-Kommentar > Alle Blätter. Siehe Screenshot:

Dann werden alle Kommentarfelder automatisch an ihren Inhalt angepasst. Siehe Screenshot:

Notizen:

  • 1. Nach dem automatischen Ändern der Größe der Kommentarfelder wird das Kommentarfeld beim erneuten Bearbeiten des Kommentars automatisch mit dem Inhalt erweitert oder verkleinert.
  • 2. Für die neuen Kommentare, die Sie eingefügt haben, müssen Sie dieses AutoFit-Kommentardienstprogramm erneut aktivieren, um die Größe aller neu eingefügten Kommentarfelder zu ändern.

  Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.


Das Kommentarfeld kann automatisch an den Inhalt angepasst werden


In Verbindung stehende Artikel:

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


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!
Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. I've been using an xls spreadsheet for 10+ years. Suddenly, all my note boxes were hugely expanded, showed as a blank note until I edited them. Your solution below worked to resize all of my note boxes to fit contents. But now when I try to resize the note box to add more text, Excel crashes. This is even after I saved as an xlsx file to remove all VB code. Can you help?

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
xComment.Shape.TextFrame.AutoSize = True
Next
End Sub
This comment was minimized by the moderator on the site
Bom-dia,

Salvou de mais! Após abrir planilha no celular todos os comentários ficaram desajustados no pc.
Tinha mais de 10 mil comentários pra arrumar o tamanho da caixa! Se tivesse pix eu até pagava! Obrigado.
This comment was minimized by the moderator on the site
It doesn't work, the insert module does not show up
This comment was minimized by the moderator on the site
amazing! thank you, the first way works! saved me hours of work!
This comment was minimized by the moderator on the site
I guess Crystal got us off track the question was: Is there a way of making the line from the comment box to the cell darker or fatter? That would be the line surrounding the comment box. TIA DD
This comment was minimized by the moderator on the site
Is there a way of making the line from the comment box to the cell darker or fatter?
This comment was minimized by the moderator on the site
Hi Demondrew,
Sorry can help you for that.
This comment was minimized by the moderator on the site
Thank you so much for sharing this. Really helpful!
This comment was minimized by the moderator on the site
@DENNIE "While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks." // Agreed
This comment was minimized by the moderator on the site
Thank you very much. This really saved me from lots of hassles.
This comment was minimized by the moderator on the site
While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations