Wie passt man die Zeilenhöhe von verbundenen Zellen in Excel automatisch an?

In Excel ist es wichtig, die Zeilenhöhen schnell und genau anzupassen, um Ihre Daten klar darzustellen. Normalerweise können Sie die Funktion „Zeilenhöhe automatisch anpassen“ verwenden, um die Höhe einer Zeile automatisch an den Inhalt der Zelle anzupassen. Bei der Arbeit mit verbundenen Zellen stellen Sie jedoch möglicherweise fest, dass die Funktion „Zeilenhöhe automatisch anpassen“ nicht wie erwartet funktioniert. Das liegt daran, dass Excel diese Funktion bei verbundenen Zellen komplett ignoriert. Somit können Sie die Zeilenhöhe nicht automatisch anpassen, um Inhalte in solchen Fällen unterzubringen. Folglich müssen Sie die Zeilenhöhe für jede verbundene Zelle manuell anpassen, was mühsam und fehleranfällig sein kann – besonders wenn Sie viele verbundene Zellen haben.

Dieser Artikel stellt mehrere praktische Methoden vor, um die Zeilenhöhe von verbundenen Zellen effektiv automatisch anzupassen, wodurch Zeit gespart und ein sauberes, lesbares Arbeitsblatt erhalten bleibt:

Automatische Anpassung der Zeilenhöhe verbundener Zellen mit VBA-Code

Verwenden Sie den Textumbruch und eine manuelle Anpassung

Automatische Anpassung der Zeilenhöhe verbundener Zellen mit VBA-Code

Angenommen, Ihr Arbeitsblatt enthält mehrere verbundene Zellen mit unterschiedlichen Mengen an Inhalten, wie im folgenden Screenshot dargestellt. Wenn Sie möchten, dass alle Ihre Daten vollständig sichtbar sind, ohne jede Zeile manuell anzupassen, können Sie eine VBA-Lösung verwenden, um die Zeilenhöhe automatisch an den Inhalt jeder verbundenen Zelle anzupassen. Diese Methode ist besonders hilfreich, wenn Sie viele zusammengefasste Bereiche in Ihrem Blatt haben oder wenn die Inhalte der verbundenen Zellen häufig aktualisiert werden und Sie den Anpassungsprozess optimieren möchten.

Bevor Sie irgendeinen VBA-Code ausführen, vergessen Sie nicht, Ihre Arbeitsmappe als makrofähige Datei zu speichern, um Datenverlust zu vermeiden. VBA ist eine sichere Methode, die von Excel bereitgestellt wird, aber stellen Sie sicher, 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 dann den folgenden Code in das Modulfenster:

Option 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.) Wenn Sie weitere verbundene Bereiche anpassen müssen, kopieren Sie einfach die Zeile Call AutoFitMergedCells(Range("a1:b2")) so oft wie nötig und aktualisieren Sie die Adresse für jeden Bereich, den Sie automatisch anpassen möchten.

(2.) Denken Sie daran, Sheet4 im Skript durch den Namen des Arbeitsblatts zu ersetzen, auf dem sich Ihre verbundenen Zellen befinden. Wenn Sie sich über den Namen Ihres Arbeitsblatts unsicher sind, überprüfen Sie die Blattregisterkarten am unteren Rand Ihres Excel-Fensters.

(3.) Achten Sie beim Ausführen von Makros darauf, dass keine Zellen mit kritischen oder sensiblen Daten versehentlich in den ausgewählten Bereichen enthalten sind, um unerwartete Formatierungsänderungen zu vermeiden.

3. Drücken Sie F5, um diesen Code auszuführen. Nach der Ausführung werden alle angegebenen verbundenen Zellen ihre Zeilenhöhe automatisch so anpassen, dass der Inhalt der Zellen vollständig angezeigt wird, wie unten dargestellt:

Diese VBA-Lösung bietet eine bequeme, automatisierte Möglichkeit zur Behandlung der Größenanpassung verbundener Zellen. Sie erfordert jedoch Zugriff auf die Entwicklertools und die Erlaubnis, Makros zu verwenden – beachten Sie dies, wenn Sie in Umgebungen zusammenarbeiten, in denen Makros deaktiviert oder eingeschränkt sind.

Verwenden Sie den Textumbruch und eine manuelle Anpassung

In vielen Fällen können Sie die Funktion „Textumbruch“ mit einer schnellen manuellen Anpassung der Zeilenhöhe kombinieren, um sicherzustellen, dass der gesamte Inhalt deutlich sichtbar ist, ohne sich auf VBA oder komplexe Tools zu verlassen.

Schritt 1: Aktivieren Sie den Textumbruch

1. Wählen Sie die verbundenen Zellen aus, die Sie formatieren möchten.
2. Gehen Sie zur Registerkarte Start und klicken Sie auf Textumbruch in der Gruppe Ausrichtung.

Dadurch wird der Inhalt automatisch in neue Zeilen innerhalb des verbundenen Bereichs umbrochen.

Schritt 2: Überprüfen Sie die Anzeige und passen Sie die Zeilenhöhe bei Bedarf manuell an

Wenn Ihr Text nicht sehr lang ist, passt er nun möglicherweise perfekt in die verbundene Zelle.

Wenn der Inhalt länger ist und immer noch nicht vollständig sichtbar ist, ziehen Sie die Zeilengrenze unter der verbundenen Zelle nach unten, um die Zeilenhöhe zu erhöhen, bis der gesamte Inhalt angezeigt wird.

Verwandter Artikel:

Wie passt man die Spaltenbreite in Excel automatisch an?