Makro: Zeilen zusammenklappen / Zeilen aufklappen

Problem:
Sie verwenden eine Excel-Datei, in der in einzelnen Zellen längere Texte stehen, so dass sie mehrere Zeilenumbrüche haben.

In der ersten Zeile der Zelle schreiben Sie jedoch immer einen Kurztext hinein, so dass der restliche Text nur angezeigt werden muss, wenn Sie ihn benötigen. Andernfalls würden Sie die Zeile gerne zusammenklappen wollen. Da Sie auf dem ganzen Tabellenblatt so vorgehen, möchten Sie gerne alle Zeilen zusammenklappen und bei Bedarf wieder aufklappen wollen.

Lösung:
Erstellen Sie ein erstes Makro, indem Sie:

die Makroaufzeichnung anschalten
mit STRG+A das ganze Tabellenblatt markieren
die Zeilenhöhe auf 15 Punkt stellen (über die rechte Maustaste)
in die Zelle A1 klicken (damit die Markierung aufgehoben wird)
die Makroaufzeichnung beenden
dem Makro die Tastenkombination STRG+k zuweisen

Erstellen Sie ein zweites Makro, indem Sie:

die Makroaufzeichnung anschalten
mit STRG+A das ganze Tabellenblatt markieren
die Zeilenhöhe aufklappen, indem Sie am linken Seitenrand auf den Strich zwischen zwei Zeilen klicken (dadurch wird die volle Größe wieder hergestellt)
in die Zelle A1 klicken (damit die Markierung aufgehoben wird)
die Makroaufzeichnung beenden
dem Makro die Tastenkombination STRG+l zuweisen

Danach können Sie mit den beiden Tastenkombinationen die Zellen des Blattes alle aufklappen und wieder zuklappen.

Wenn Sie die Makros in VBA direkt eingeben wollen, finden Sie nachfolgend den Quellcode. Sie müssen danach nur noch die Tastenkombinationen zuweisen:


Sub ZeileKleiner()
' Durch dieses Makro werden alle Zellen auf dem aktiven Tabellenblatt markiert
' und alle Zeilen auf eine Höhe von 15 Punkten eingestellt.

    Cells.Select
    Selection.RowHeight = 15
End Sub


Sub ZeileGroesser()
' Durch dieses Makro werden alle Zellen auf dem aktiven Tabellenblatt markiert
' und alle Zeilen ihre maximal benötigte Größe (je nach Inhalt) eingestellt.
' ZeileGroesser Makro

    Cells.Select
    Cells.EntireRow.AutoFit
End Sub