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?
Von http://support.microsoft.com/kb/149663
Gehen Sie folgendermaßen vor, um die Höhe der Zeile so anzupassen, dass der gesamte Text in eine Zelle passt:
Wählen Sie die Zeile aus.
Zeigen Sie in Microsoft Office Excel 2003 und in früheren Excel-Versionen im Menü Format auf Zeile, und klicken Sie dann auf Automatische Anpassung.
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
Beachten Sie, dass Autofit bei verschmolzenen Zellen nicht funktioniert. Sie müssen es manuell durchführen.
Siehe diese Antwort von Microsoft: Sie können die Funktion AutoAnpassung nicht für Zeilen oder Spalten verwenden, die zusammengeführte Zellen in Excel enthalten
Wenn dies nicht automatisch geschieht, dann setzen Sie den Cursor auf die kleine Linie zwischen den Zeilennummern (z.B.: zwischen 1 und 2) und doppelklicken Sie, dies wird die Größe der Zeile ändern (direkt über der kleinen Linie, im Beispiel: 1), so dass alles sichtbar ist (von einem vertikalen Aspekt).
Die einzige Möglichkeit, es wie erwartet zum Funktionieren zu bringen, besteht darin, das gesamte Blatt mit STRG-A zu markieren, die Schaltfläche “Text umbrechen” in der Symbolleiste zu entklicken und es dann erneut zu markieren. Es ändern sich keine anderen Einstellungen, aber jede Zeile hat jetzt die “richtige” Höhe für ihren Inhalt.
Eine VBA-Lösung ist die Verwendung der folgenden:
Call Application.ActiveCell.AutoFit
Ich habe den folgenden VB-Code erstellt, um die Größe der Kopfzeile zu ändern, wenn eine Zelle innerhalb eines Bereichs (B2:B1500) liegt, weil Datumswerte über dem 28.12.2014 dazu führen würden, dass die Kopfzeile eine Warnung anzeigt, dass diese Daten in einem Stundenzettel in Woche 1 von 2015 gehen würden:
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