VBA Erweitern

[Phoeni]

Hallo,
bei dem VBA funktioniert es wunderbar,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "E16" Then Range("F18").Activate
End Sub


was ich nicht hinbekomme ist:
habe ich jetzt etwas in F18 verändert, dass der Cursor dann wieder zurück auf E16  springt.

Danke Euch

[Egon12]

Hallo,

so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(False, False) = "E16" Then Range("F18").Activate
    If Target.Address(False, False) = "F18" Then Range("E16").Activate
End Sub

funktioniert bei mir.
Gruß Uwe

[Phoeni]

bei mir auch -  Danke !