Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Mit der aktiven Zelle jeweil 9 weitere in der Zeile markieren

Gruppe

SelectionChange

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