Clever-Excel-Forum

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

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

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

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

Andy2711

Crazy Tom

Andy2711

BoskoBiati