Error in code Workbook Sheetchange

[rob91]

Hallo,

Ik gebruik de volgende code om bij wijzigingen op blad "kalender" de datum en naam weg te schrijven.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("F26:AJ37")) Is Nothing Then
Sheets("Kalender").Range("J46").Value = Date
Sheets("Kalender").Range("J49").Value = Application.UserName
End If
End Sub


Nu is mij probleem dat als iemand wat op blad 2 wijzigt, er een foutmelding komt.
Hoe moet de code aangepast worden zodat er alleen naar wijzigingen op het blad "kalender '' gekeken wordt??

Rob

 

[Roncancio]

De code verplaatsen naar het werkblad "kalender"

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F26:AJ37")) Is Nothing Then
Range("J46").Value = Date
Range("J49").Value = Application.UserName
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[rob91]

Natuurlijk, zo simpel kan het zijn......

bedankt voor je oplossing.:thumb::thumb:

Rob