Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Cursor-Position rechts und links markieren

Gruppe

SelectionChange

Problem

Rechts und links des Cursors sollen > bzw. <-Zeichen erscheinen.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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