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