Bis zu hary's Zeilen kommt der Code garnicht !
27.01.2012 20:16:45
Matthias
Hallo Heinz
Das kannst Du so testen
If Not Intersect(Target, Range("J2:J5000")) Is Nothing Then
Msgbox "Test"
Cells(Target.Row, "G").Value = Cells(Target.Row, "T").Value
End If
Die MSG mit dem Text "Test" erscheint nicht!
Wo der Fehler in Deinem Code liegt habe ich nicht analysiert,
aber im .Calculate-Ereignis müsste es schon klappen.
Du müsstest nur jeweils EnableEvents richtig setzen und ActiveCell benutzen
Private Sub Worksheet_Calculate()
'################# Code von Hary #########################################
'################# Code von Hary #########################################
'WERT bei Änderung von Spalte J Wert von Spalte T in Spalte G Eintragen
If Not Intersect(ActiveCell, Range("J2:J5000")) Is Nothing Then
MsgBox "jetzt klappts ;o)"
Application.EnableEvents = False
Cells(ActiveCell.Row, "G").Value = Cells(ActiveCell.Row, "T").Value
Application.EnableEvents = True
End If
End Sub
Gruß Matthias