Eingabe in Zellen

Ich versuche folgendes zu erreichen.
Im Tabellenbereich von "A5:H105" soll bei einem Click in eine Zelle automatisch das
aktuelle Datum "voreingetragen" werden, so im Muster "19.06.2003: ".
Der Cursor soll dann gleich hinter dem Datum stehen. Werden jedoch keine Eingaben
gemacht, soll das Datum wieder verschwinden, ansonsten steht als Ergebnis eine aktuelle
Fehlereintragung mit dem aktuellen Datum davor in der Zelle.
Ich habe versucht mit folgendem Code zu arbeiten, klappt leider nicht so richtig.
____________________________________________________________________

Sub workbook_open()
Worksheets("Tabelle1").OnEntry = "aktFehler"
End Sub
____________________________________________________________________

Sub auto_close()
Worksheets("Tabelle1").OnEntry = ""
End Sub
____________________________________________________________________

Sub aktFehler()
if worksheets("Tabelle1").range("A5:H105").value <> "" then
date & ": "
end if
End Sub
____________________________________________________________________

Gibt es überhaupt eine Möglichkeit dies zu machen ???

Gruß Axel