VBA: Änderung an Arbeitsblatt dokumentieren

[.olli]

Hallo zusammen,

ich arbeite derzeit an einer Arbeitsmappe mit mehreren Arbeitsblättern und versuche mit folgendem VBA-Code das Datum und die Uhrzeit der letzten Änderung pro Arbeitsblatt zu dokumentieren:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Arbeitsblattname").Range("H4") = Now
End Sub

Nach einer Änderung passt Excel zwar Datum und Uhrzeit an, anschließend kommt jedoch ein Laufzeitfehler ("Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen") oder Excel stürzt direkt ab. Ich habe auch schon versucht mit Cells(4, 8).Value zu arbeiten, das Ergebnis ist jedoch dasselbe mit entsprechend angepasstem Laufzeitfehler ("Die Methode 'Value' für das Objekt 'Range' ist fehlgeschlagen"). Was funktioniert: Ein simples MsgBox "Test" nach jeder Änderung ...

Hat jemand eine Ahnung was ich hier falsch mache bzw. ob es eine elegantere Lösung gibt?

Ich danke im Voraus.

Gruß
Olli

[Elex]

Hi

so.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Sheets("Arbeitsblattname").Range("H4") = Now
Application.EnableEvents = True
End Sub

Gruß Eles

[.olli]

Da wäre ich wohl selber nicht drauf gekommen - funktioniert, besten Dank!

Gruß
Olli