Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bis zur 12. Zeile Cursor nach unten, dann nächste Spalte ansetzen

Gruppe

Change

Problem

Wie kann ich festlegen, daß der Cursor bis zur 12. Zeile nach Eingaben immer die untere, danach die erste der nächsten Spalte auswählt?

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

ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Row < 12 Then
      Target.Offset(1, 0).Select
   Else
      Cells(1, Target.Column + 1).Select
   End If
End Sub