Wie passt man die Zeilenhöhe von zusammengeführten Zellen in Excel automatisch an?
In Excel ist die schnelle und präzise Anpassung der Zeilenhöhe entscheidend, um Ihre Daten übersichtlich darzustellen. Normalerweise können Sie die Funktion AutoFit Zeilenhöhe verwenden, um die Zeilenhöhe automatisch an den Zellinhalt anzupassen. Bei der Arbeit mit zusammengeführten Zellen kann es jedoch vorkommen, dass AutoFit Zeilenhöhe nicht wie erwartet funktioniert. Tatsächlich ignoriert die AutoFit-Funktion von Excel zusammengeführte Zellen vollständig – sodass die Zeilenhöhe in diesen Fällen nicht automatisch an den Inhalt angepasst wird. Folglich müssen Sie die Zeilenhöhe jeder zusammengeführten Zelle manuell anpassen, um sicherzustellen, dass der gesamte Inhalt sichtbar bleibt. Das ist besonders bei vielen zusammengeführten Zellen zeitaufwendig und fehleranfällig.
Dieser Artikel stellt mehrere praktische Methoden vor, um die Zeilenhöhe von Zusammengeführt effektiv automatisch anzupassen und so Zeit zu sparen sowie ein übersichtliches und gut lesbares Arbeitsblatt zu erhalten:
Automatisches Anpassen der Zeilenhöhe von Zusammengeführt mithilfe von VBA-Code
Verwenden Sie „Zeilenumbruch“ und eine manuelle Anpassung
Automatisches Anpassen der Zeilenhöhe von Zusammengeführt mithilfe von VBA-Code
Angenommen, Ihr Arbeitsblatt enthält mehrere zusammengeführte Zellen mit unterschiedlich langem Inhalt, wie in der folgenden Abbildung dargestellt. Wenn Sie sicherstellen möchten, dass alle Ihre Daten vollständig sichtbar sind – ohne jede Zeile manuell anpassen zu müssen – können Sie eine VBA-Code-Lösung nutzen, um die Zeilenhöhe aller zusammengeführten Zellen automatisch und gleichzeitig an deren Inhalt anzupassen. Diese Methode ist besonders hilfreich, wenn Ihr Arbeitsblatt viele zusammengeführte Bereiche enthält oder sich die Inhalte dieser Zellen häufig ändern und Sie den Anpassungsprozess vereinfachen möchten.
Bevor Sie VBA-Code ausführen, speichern Sie Ihre Arbeitsmappe unbedingt als makrofähige Datei, um Datenverlust zu vermeiden. VBA ist eine sichere, von Excel bereitgestellte Methode – achten Sie jedoch darauf, dass Makros aktiviert sind und Ihre Sicherheitseinstellungen die Ausführung von Makros auf Ihrem System zulassen.
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und kopieren Sie anschließend den folgenden Code in das Modulfenster:
VBA-Code: Automatisches Anpassen der Zeilenhöhe mehrerer ZusammengeführtOption Explicit
Public Sub AutoFitAll()
Call AutoFitMergedCells(Range("a1:b2"))
Call AutoFitMergedCells(Range("c4:d6"))
Call AutoFitMergedCells(Range("e1:e3"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
Dim tHeight As Integer
Dim iPtr As Integer
Dim oldWidth As Single
Dim oldZZWidth As Single
Dim newWidth As Single
Dim newHeight As Single
With Sheets("Sheet4")
oldWidth = 0
For iPtr = 1 To oRange.Columns.Count
oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
Next iPtr
oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
oRange.MergeCells = False
newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
oldZZWidth = .Range("ZZ1").ColumnWidth
.Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
.Range("ZZ1").WrapText = True
.Columns("ZZ").ColumnWidth = oldWidth
.Rows("1").EntireRow.AutoFit
newHeight = .Rows("1").RowHeight / oRange.Rows.Count
.Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
oRange.MergeCells = True
oRange.WrapText = True
.Range("ZZ1").ClearContents
.Range("ZZ1").ColumnWidth = oldZZWidth
End With
End Sub
Hinweise:
(1.) Falls Sie weitere zusammengeführte Bereiche anpassen müssen, kopieren Sie einfach die Zeile Call AutoFitMergedCells(Range("a1:b2")) so oft wie nötig und passen Sie jeweils die Zelladresse für jeden zusammengeführten Bereich an, den Sie automatisch anpassen möchten.
(2.) Denken Sie daran, Sheet4 im Skript durch den Namen des Arbeitsblatts zu ersetzen, in dem sich Ihre Zusammenführung befindet. Falls Sie den Namen Ihres Arbeitsblatts nicht kennen, überprüfen Sie die Blattregisterkarten unten im Excel-Fenster.
(3.) Achten Sie beim Ausführen von Makros darauf, dass keine Zellen mit wichtigen oder sensiblen Daten versehentlich in den ausgewählten Bereich einbezogen werden, um unerwartete Formatierungsänderungen zu vermeiden.
3. Drücken Sie F5, um diesen Code auszuführen. Nach der Ausführung passen alle angegebenen zusammengeführten Zellen ihre Zeilenhöhe automatisch an, sodass der gesamte Zellinhalt vollständig angezeigt wird, wie unten dargestellt:
Diese VBA-Lösung bietet eine komfortable und automatisierte Möglichkeit, die Größe zusammengeführter Zellen zu verwalten. Sie setzt jedoch Zugriff auf die Entwicklertools sowie die Berechtigung zur Verwendung von Makros voraus – beachten Sie dies, wenn Sie in Umgebungen arbeiten, in denen Makros deaktiviert oder eingeschränkt sind.
Verwenden Sie „Zeilenumbruch“ und eine manuelle Anpassung
In vielen Fällen kombinieren Sie die Funktion „Zeilenumbruch“ einfach mit einer schnellen manuellen Anpassung der Zeilenhöhe, um sicherzustellen, dass der gesamte Inhalt klar sichtbar bleibt – ganz ohne VBA oder komplexe Tools.
Schritt 1: Zeilenumbruch aktivieren
- Wählen Sie die zusammengeführten Zellen aus, die Sie formatieren möchten.
- Wechseln Sie zur Start-Registerkarte und klicken Sie in der Gruppe Ausrichtung auf Zeilenumbruch.
Dadurch wird der Inhalt im zusammengeführten Bereich automatisch auf mehrere Zeilen umgebrochen.
Schritt 2: Anzeige prüfen und ggf. Zeilenhöhe manuell anpassen
Wenn Ihr Text nicht sehr lang ist, passt er nun perfekt in die zusammengeführte Zelle.
Wenn der Inhalt zu lang ist und weiterhin nicht vollständig sichtbar bleibt, ziehen Sie die Zeilenbegrenzung unterhalb der zusammengeführten Zelle einfach manuell nach unten – so lange, bis die gesamte Zeile den Inhalt vollständig anzeigt.
Verwandter Artikel:
Wie passt man die Spaltenbreite in Excel automatisch an?
Beste Office-Produktivitätstools
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins