Hallo zusammen,

ich habe ein excel sheet mit 60 tabellenblättern und würde jeweils gerne einen Zeitstempel haben sobald sich irgendwo auf den tabellenblättern was ändert...
dieser soll in zelle A200 sein

habe dann folgendes makro gefunden:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("G:G")) Is Nothing Then
Else
If Target.Value <> "" Then
Cells(Target.Row, 18) = Now
End If
End If

End Sub

und umgeschrieben in:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A:CZ")) Is Nothing Then
Else
If Target.Value <> "" Then
Cells(200,1) = Now
End If
End If

End Sub


leider funktioniert das nicht...

kann in der tabelle rumwurschteln wie ich möchte und es passiert gar nichts.....
Bin für jede Hilfe dankbar!

MfG

Philipp