Clever-Excel-Forum

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

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

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

Gruß
Olli

.olli

Elex

.olli