bei Eintrag kopieren von eine in eine andere Zelle

[JR2007]

Hallo,

ich möchte den Wert einer Zelle kopieren, komme aber leider nicht weiter und benötige Hilfe.
Wenn ich in Zeile 53 Spalte B - AL den eingeragenen Wert ändere möchte ich das der Wert aus Zeile 55 in die Zeile 58 der jeweiligen Spalte kopiert wird.

Hat jemand eine Idee wie sich das umsetzen lässt.
Danke
bis später
Jörg

[Gast 123]

Hallo

bitte setzte diesen kurzen Code in das Tabellenblatt, wo das Kopieren stattfinden soll.
Würde mich freuen wenn es auf Anhieb richtig klappt.

mfg Gast 123

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rw As Long, Sp As Integer
If InStr(Target.Address, ":") Then Exit Sub
If Target.Value = Empty Then Exit Sub

If Not Intersect(Target, Range("B53:L53")) Is Nothing Then
   Rw = Target.Row: Sp = Target.Column
   Cells(Rw + 5, Sp).Value = Cells(Rw + 2, Sp).Value
End If
End Sub

[JR2007]

Hallo,

Danke für die schnelle Antwort.
funktioniert super

bis zum nächsten mal
Jörg