Bei Klick in andere Zelle

[Andy2711]

Hallo zusammen,

ich suche eine Lösung für folgendes Problem:

Bei Klick in Zelle J2 soll der Curser in Zelle AB2 springen bzw. selektiert werden.
Das gleiche soll in allen Zeilen von 2-30 passieren.

Vielen Dank für die Hilfe
Gruß
Andy

[Crazy Tom]

Hallo

meinst du so?

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim rngBereich As Range
   Set rngBereich = Range("J2:J30")
   If Not Intersect(Target, rngBereich) Is Nothing Then
       Cells(Target.Row, 28).Select
   End If
End Sub

MfG Tom

[Andy2711]

Sauber, läuft!
Vielen Dank für die schnelle Hilfe!

[BoskoBiati]

Hallo,

da reicht das:

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, [J2:J30]) Is Nothing Then Cells(Target.Row, 28).Select
End Sub