Problem:
In einer Zelle ist ein mehrzeiliger Text enthalten (z.B. eine ausführliche Erklärung). Dieser Text soll jedoch nur dann voll angezeigt werden, wenn man auf die Zelle klickt.
Ist die Zelle dann aufgeklappt, soll sich diese beim nächsten Klick auf die Zelle wieder zuklappen.

Lösung:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(Target, Range("A1:A20")) Is Nothing Or _
    Target.Count > 1 Then Exit Sub


If ActiveCell.WrapText = False Then
    ActiveCell.WrapText = True
Else
    ActiveCell.WrapText = False
End If

End Sub