Gruppe
Ereignis
Bereich
SelectionChange
Thema
Mit der aktiven Zelle jeweil 9 weitere in der Zeile markieren
Problem
Wie kann ich jedesmal, wenn ich eine Zelle auswähle, die neun sich rechts der aktiven Zelle befindlichen Zellen mit auswählen lassen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1
Private Sub Worksheet_SelectionChange( _
ByVal Target As Excel.Range)
On Error GoTo ERRORHANDLER
Application.EnableEvents = False
Range(Target, Target.Offset(0, 9)).Select
ERRORHANDLER:
Application.EnableEvents = True
End Sub