Office: Aktuelles Datum auf Knopdruck einfügen

Hallo !

Ich benötige Hilfe für ein Makro oder so, mit dem ich per Knopfdruck auf einen Button in eine Zelle das heutige Datum einfügen kann.
Das eingefügte Datum soll sich nach speichern heute und öffnen am anderen Tag nicht mehr verändern, also nicht aktualisieren.

Vielen Dank schonmal im Voraus

Doogie

 

Hallo!

Dieser Code schreibt das aktuelle Datum in die aktive Zelle:

Sub test()
ActiveCell = Date
End Sub

 

Geht das auch irgenwie mit einem Doppelklick auf die Zelle ?
Ansonsten muss ja die jeweilie Zelle aktiv sein vor dem Anklicken, oder ?

 

Hallo!

Das geht auch per Doppelklick mit diesem code im Modul des Tabellenblatts:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Date
Cancel = True
End Sub

 

Super, das funktioniert - aber wie begrenze ich diesen Funktion auf eine Zelle ?

 

Hallo!

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Target = Date
Cancel = True
End If
End Sub 

 

Hallo Schatzi,

warum auch immer, das funktioniert nicht. Habe die Zellangabe entsprechend geändert (bei mir $B$8), aber nix geht.

Was mache ich da falsch ? ISt doch nur die If- Abfrage dazugekommen

 

SORRY, jetzt geht es !!!

Ich habe die Datei einfach nochmal neu geöffnet und es läuft :-)

 

Übrigens kannst du das aktuelle Datum auch mit dieser Tastenkombi einfügen: Strg + .