Zelle: Zeilenumbruch per VBA anschalten / ausschalten

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
Diese Website verwendet Cookies. Durch die Nutzung der Website stimmen Sie dem Speichern von Cookies auf Ihrem Computer zu. Außerdem bestätigen Sie, dass Sie unsere Datenschutzbestimmungen gelesen und verstanden haben. Wenn Sie nicht einverstanden sind, verlassen Sie die Website.Weitere Information
  • kb/s/0086/faq/zelle-zeilenumbruch-per-vba-an-ausschalten.txt
  • Zuletzt geändert: 2021/04/04 14:17
  • von 127.0.0.1