Office: aktuelles Datum einfügen

Hallo,
ich hab mal eine Frage:

Ich habe eine Tabelle, die täglich durch neue Umsatzzahlen aktuallisiert wird.
Um nachvollziehen zu können, wann welcher Betrag eingegeben wurde, muss das Datum hinterlegt werden.
Ist es möglich, dass wenn ich in eine Zelle (z.B. G1) einen Betrag eingebe, dass in der Zelle(z.B. A1) automatisch das aktuelle Datum erscheint?

Schon mal vielen Dank im Voraus!
Knuddl

 

Hallo,

der folgende Code muss in das Modul des entsprechenden Tabellenblattes

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("G1:G10")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, -6).ClearContents
Else:
Target.Offset(0, -6) = CDate(Format(Now, "dd.mm.yyyy"))
End If
End Sub

Der Bereich der überwacht wird, derzeit G1 bis G10, musst du noch anpassen.

- mit Alt+F11 den VBA-Editor öffnen
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- auf das gewünschte Tabellenblatt unterhalb dieser Datei doppelklicken
- in der rechten Fensterhälfte ist das Codefenster dieser Tabelle sichtbar
- dort den Code einfügen
- speichern und den VBA-Editor mit Alt+F4 schliessen