Hi Leo,

This one works when you apply changes in a single sheet on one ore
multiple cells:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)

Application.ScreenUpdating = False
Application.DisplayAlerts = False

mySheet = Target.Worksheet.Index

Workbooks.Open Filename:="[Path] & bestand1.xls"

For myRow = Target.Row To (Target.Rows.Count + Target.Row - 1)
For myCol = Target.Column To (Target.Columns.Count + Target.Column -
1)
Workbooks("bestand1.xls").Worksheets(mySheet).Cell s(myRow,
myCol).Value =
Workbooks("bestand2.xls").Worksheets(mySheet).Cell s(myRow, myCol).Value
Next myCol
Next myRow

Workbooks("bestand1.xls").Save
Workbooks("bestand1.xls").Close

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Regards,
ManualMan
http://www.gamesXL.tk

PS. Aangezien jij volgens mij nederlands kan lezen heb ik hier en daar
wat nederlandse woorden laten staan.