vielen Dank Harald !!!
Ein Problem gibt es noch. Wenn manchmal eine Zelle leer ist
(J21:J38) funktioniert es nicht.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Range("J21:J38")
'ActiveSheet.Unprotect
Application.EnableEvents = False
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then RaZelle.Offset(1, -5).activate
Next RaZelle
'ActiveSheet.Protect
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub
Wo ist das definiert ? Was bedeutet For Each RaZelle In Range(Target.Address)
Was bedeutet Target.Adress ?
danke
Cris