Zelle bei Änderung kopieren
13.06.2006 07:37:55
Enrico
Option Explicit
Private inChange As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If inChange Then Exit Sub
inChange = True
Cells(Target.Row, 9).Value = Cells(Target.Row, 5).Value
Cells(Target.Row, 10).Value = Cells(Target.Row, 6).Value
Cells(Target.Row, 17).Value = Cells(Target.Row, 13).Value
Cells(Target.Row, 18).Value = Cells(Target.Row, 14).Value
Cells(Target.Row, 25).Value = Cells(Target.Row, 21).Value
Cells(Target.Row, 26).Value = Cells(Target.Row, 22).Value
inChange = False
End Sub
Ich möchte bei Änderung der Werte in Spalte 5 eine Kopie in Spalte 9
bei Änderung in Spalte 6 eine Kopie in Spalte 10 usw.
Am Ende der Eingabe werden die kompl. Originalspalten gelöscht - die Kopien bleiben stehen - soweit OK
Mit diesem Makro wird aber immer gleich die ganze Zeile erneuert.
Also die Werte in Spalte 17,18,... werden auch mit aktualisiert.
Weiß da jemand Rat?
Danke
Anzeige