Hallo Alex,
probier's mal so
[code]Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target = "X" Then ' 7 bedeutet Spalte G, anpassen
Rows(Target.Row).Copy Workbooks("Test.xls").Worksheets(1).Range("A1")
End If
End Sub
Gruß
Rainer