Clever-Excel-Forum

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

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

Hallo,

Danke für die schnelle Antwort.
funktioniert super

bis zum nächsten mal
Jörg

JR2007

Gast 123

JR2007