Clever-Excel-Forum

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

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

bei mir auch - Danke !

Phoeni

Egon12

Phoeni