====== 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:

<code>


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


</code>