Wie kann ich erreichen, dass eine Zelle in Excel ihre Höhe automatisch an den umbrochenen Textinhalt anpasst? [Duplikat]

23

Ich habe eine Zelle mit umbrochenem Textinhalt in Excel und möchte die Zelle so formatieren, dass ihre Höhe an den Inhalt angepasst wird, der sich über mehrere Zeilen erstrecken kann. Wie kann ich dieses Verhalten erreichen?

microsoft-excel microsoft-excel-2007 Manga Lee
quelle
Ich bin mir nicht sicher über Excel 2007, aber ich verwende Excel 2003 und da geht das automatisch, wenn ich mehrzeilige Daten in eine Zelle eingebe, wird die Zeilenhöhe festgelegt, wenn ich die Eingabetaste drücke.
Freitag,

Antworten:

25

Von http://support.microsoft.com/kb/149663

Gehen Sie folgendermaßen vor um die Höhe der Zeile an den gesamten Text in einer Zelle anzupassen,

Wählen Sie die Zeile aus.

Zeigen Sie in Microsoft Office Excel 2003 und früheren Versionen von Excel im Menü Format auf Zeile, und klicken Sie dann auf AutoFit.

Klicken Sie in Microsoft Office Excel 2007 auf die Registerkarte Start, klicken Sie in der Gruppe Zellen auf Format, und klicken Sie dann auf Zeilenhöhe automatisch anpassen.

Funktioniert auch, wenn alle Zeilen ausgewählt sind

vaichidrewar
quelle
11

Versuchen

Wählen Sie die Spalte aus -> Rechtsklick-Spalte -> Zellen formatieren -> Registerkarte Ausrichtung -> Text umbrechen

Hyperslug
quelle
2
Die Zelle hat bereits diese Formatierung und ich möchte, dass die Zelle auch ihre Höhe anpasst. Ich möchte, dass die Höhe der Zellenzeile so angepasst wird, dass der gesamte umgebrochene Inhalt der Zelle sichtbar ist.
Manga Lee
3
Ich bin mir nicht sicher, ob Sie dies ermöglichen können, wenn sich der Inhalt der Zelle ändert, aber wenn Sie fertig sind, doppelklicken Sie auf den Rand zwischen der Zeilennummer und der darunter liegenden automatischen Größe, um ihn an den Inhalt anzupassen.
Col
+1: Dies ist keine schlechte Antwort. Wenn Sie ein- Wrap Textund ausschalten, passt Excel die Zeilenhöhe an die höchste Zeile an. Nicht geeignet, wenn sich die Zeilenhöhe dynamisch ändert. Wenn Sie jedoch mit statischem Text arbeiten, sollte dies in Ordnung sein.
Li-aung Yip
Es funktionierte für mich auf Excel 2019.
IT
2

Wenn dies nicht automatisch geschieht, platzieren Sie den Cursor über der kleinen Linie zwischen den Zeilennummern (z. B. zwischen 1 und 2) und doppelklicken Sie, um die Größe der Zeile zu ändern (im Beispiel direkt über der kleinen Linie: 1). damit alles sichtbar ist (von einem vertikalen Aspekt).

Lance Roberts
quelle
Das ist etwas, was Sie tun können, wenn Sie nur wenig zu tun haben, aber je komplexer Sie damit umgehen müssen, desto mehr Zeit- und Energieverschwendung, Fokus und Dynamik werden durch solche Aufgaben unterbrochen. Die von Bertieb gegebene Lösung wirkt wie ein Zauber auf Excel 2019.
猫
0

Kennen Sie Makro? Geben Sie den folgenden Code ein

Application.ActiveCell.WrapText = True

in Ihrer Unterroutine Worksheet_SelectionChange.

Toc
quelle
0

Eine VBA-Lösung besteht darin, Folgendes zu verwenden: 

 Call Application.ActiveCell.AutoFit
richardtallent
quelle
0

Die einzige Möglichkeit, wie erwartet zu funktionieren, besteht darin, das gesamte Blatt mit STRG-A zu markieren, die Schaltfläche "Text umbrechen" in der Symbolleiste zu deaktivieren und es dann erneut auszuwählen. Es werden keine weiteren Einstellungen geändert, aber jede Zeile hat jetzt die "richtige" Höhe für ihren Inhalt.

simpleuser
quelle
0

Ich habe den folgenden VB-Code erstellt, um die Größe der Kopfzeile zu ändern, wenn eine Zelle in einem Bereich (B2: B1500) liegt, da bei Datumswerten über dem 28.12.2014 in der Kopfzeile eine Warnung angezeigt wird, dass diese Daten in einer Arbeitszeittabelle enthalten sind Woche 1 von 2015:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    ' The variable KeyCells contains the cells that will
    ' cause an Action when they are changed.
    Set KeyCells = Range("B2:B1500")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

        ' Change the height of the header row when one of the defined cdlls is changed
        Rows("1:1").EntireRow.AutoFit

    End If
End Sub
Mickg01
quelle