Office: Datum automatisch eintragen und "fixieren"

Hallo zusammen,

ich könnte mal wieder Hilfe gebrauchen:

in einer Tabelle trage ich in C8 ein Wert ein (besteht immer aus Zahlen).
Null soll im Feld B8 das aktuelle Datum erscheinen. Dies dann aber auch fortlaufend für alle Felder unterhalb dann, bei entsprechendem Eintrag in der Spalte C (C9-B9, C10-B10, C11-B11, usw.).

Dieses Datum soll jedoch auch "festgeschrieben" werden, also sich nicht aktualisieren, wenn z. B. am nächsten Tag die Datei aufgerufen wird.

Vielen Dank im voraus für eine Hilfe dazu.

Beste Grüße
Dhil

 

Das bedeutet, daß Du mit reinem Formelwerk nichts mehr wirst. Denn =heute() würde sich immer aktualisieren.

Dann bleibt nur was per VBA... Bei Änderung einer Zelle gibt es ein Ereignis "Change". Das kann man abgreifen. Es wird übergeben, welche Zelle genau geändert wurde. Abhängig davon kann dann ggf. eine Aktion ausgeführt werden.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim y As Long
    Dim x As Long

    y = Target.Row
    x = Target.Column

    'nur spalte c überprüfen
    If (x = 3) Then
        'nur zeilen 3 bis 20 überprüfen
        If (y >= 3) And (y <= 20) Then

            'aktuelles datum rechts daneben setzen
            Cells(y, x + 1).Value = Int(Now())

        End If
    End If

End Sub

Gruß, Michael

 

Zusatz-Fragen:

a) Soll das Datum auch geschrieben werden, wenn dort bereits ein Datum steht? Sprich: Soll es bei Änderung aktualisiert werden? Oder soll das ursprüngliche Datum erhalten bleiben?

b) Soll das Datum ggf. gelöscht werden, wenn der zugehörige Wert in Spalte C gelöscht wird?

Dann müßte das Change-Ereignis noch umk ein paar Zeilen erweitert werden...

Gruß, Michael

 

Hallo Michael,

ich habe es gleich eingesetzt und es funktioniert genauso, wie ich es mir wünsche. Nur aus dem Plus habe ich ein minus gemacht, so dass mir das Datum links des Eingabefeldes gesetzt wird.
Super vielen Dank und ein schönes WE.

Beste Grüße
Dhil

 

Hi Dhil,

schau mal hier: Link zum Beitrag, da findest du eine VBA-freie Lösung.

Bis später,
Karin

 

Hallo Michael,

eine Änderung in der Eingabe Spalte C gibt es nicht, soll heissen: ein einmal eingegebener Wert bleibt bestehen und somit auch das dazugehörige Datum. Der nächste Eintrag erfolgt immer unter dem zuletzt eingegebenen Wert.

Somit ist der von Dir geschríebene Code genau richtig.

Beste Grüße
Dhil

 

Hallo Karin,

vielen Dank für den Tipp ohne VBA-Code. Habe jetzt jedoch schon den Code von Michael verarbeitet.

Dir ein schönes WE.

Beste Grüße
Dhil

 

Dabei aber bitte den Hinweis nicht vergessen, daß
a) in den Excel-Optionen gedreht werden muß.
b) dadurch Zirkelbezüge unterdrückt werden.

Gruß, Michael

 

Re Datum fixieren mit Vba, Varianten

Hallo Michael.
Es ist zwar schon ein paar Tage her dass Du dieses tolle Change geschrieben hast. Aber vlt liest Du ja meine Nachricht.
Ich interessiere mich nämlich genau für die Varianten die Du noch im Nachgang aufgeführt hast. Also das Change so zu erweitern dass sich
A) das Datum auch nicht verändert wenn man den Eintrag ändert oder löscht.
Und vlt ginge noch
B) das Datum entfernt wenn man den Eintrag löscht aber ein aktuelles eingetragen wird wenn wieder ein neuer Eintrag generiert wird. Dieses aktuelle soll dann auch wiederum fixiert sein.

Ist das möglich?
Ich wäre sehr dankbar für Deine Hilfestellung .
Vielen vielen Dank vorab.
Beste Grüsse
Michael

 

Das hat genau so geklappt, danach hatte ich gesucht, allerdings habe ich bei mir zwei Zeilen C und H die ich mit diesem Code belegen will. Aber jeder Versuch mehr als eine Zeile überwachen zu lassen verursacht eine Fehlermeldung.
Hoffe mir kann jemand helfen die Formel dahingehend anzupassen.

Danke schon mal