VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Mit der aktiven Zelle jeweil 9 weitere in der Zeile markieren

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und SelectionChange