Gruppe
Ereignis
Problem
Rechts und links des Cursors sollen > bzw. <-Zeichen erscheinen.
ClassModule: Tabelle1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Cells.Replace "<", ""
Cells.Replace ">", ""
Select Case Target.Column
Case 1
Target.Offset(0, 1).Value = "<"
Case 256
Target.Offset(0, -1).Value = "<"
Case Else
Target.Offset(0, 1).Value = "<"
Target.Offset(0, -1).Value = ">"
End Select
End Sub