ich möchte die aktive Zelle im Zeilenumbruchmodus angezeigen lassen. Bei Verlassen soll sie wieder zurückgesetzt wird.
Kann mir jemand dabei helfen?
Danke
Gruß
Karsten
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.WrapText = True
End Sub
schaffe ich zwar, die aktive Zelle in den Zeilenumbruch zu versetzen, aber wenn ich sie verlassen will, soll sie wieder im Selection.WrapText = False - Modus erscheinen.
Private Sub Worksheet_DeSelectionChange(ByVal Target As Range)".
Hast du eine Ahnung, wie macht man das?
Gruß
Karsten
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Selection.WrapText = False
End Sub
Option Explicit
Dim rngOld As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.WrapText = True
If Not rngOld Is Nothing Then rngOld.WrapText = False
Set rngOld = Target
End Sub