Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: SvenFriedrich1978 am Mai 29, 2018, 10:06:02 Vormittag
-
Hallo,
es gibt ja die Formel =HEUTE(), die immer das aktuelle Datum einfügt... wenn ich aber mit dieser Formel am 01.05. das Datum übernehme und die Tabelle am 03.05. wieder aufmache, erscheint dort der 03.05. als Datum.
Gibt es eine Formel, bei der das Eingabedatum/ Änderungsdatum automatisch erzeugt wird und bestehen bleibt?
Beispiel: ich schreibe eine Rechnung: in Spalte A kommt die Rechnungsnummer, in Spalte B soll das Rechnungsdatum... das soll also fix bleiben... ich hätte gerne eine Funktion, wenn in A etwas steht, soll er sich das aktuelle Datum holen...
oder:
Wenn ich einen Zahlungseingang habe, kommt in Spalte C der eingegangene Betrag, in Spalte D soll das Datum des Zahlungseingans kommen... gleiches Prinzip: Wenn in C ein wert ist, soll er sich das aktuelle Datum holen und beibehalten...
Ich denke, die WENN-DANN-Formel ist nicht das Problem, mir fehlt nur die Idee, wie man =HEUTE() so fixiert, dass das Datum erhalten bleibt und sich nicht täglich aktualisiert...
Vielen dank für die Antworten!
-
Hola,
Ich denke, die WENN-DANN-Formel ist nicht das Problem, mir fehlt nur die Idee, wie man =HEUTE() so fixiert, dass das Datum erhalten bleibt und sich nicht täglich aktualisiert...
per Formel geht das nicht, es sei denn du trägst das Datum mit Strg-Punkt in die Zelle ein.
Ansonsten:
https://www.google.de/search?q=excel+datum+soll+sich+nicht+aktualisieren&oq=excel+aktuelles+datum+soll+si&aqs=chrome.2.69i57j0l2.11334j1j7&sourceid=chrome&ie=UTF-8 (https://www.google.de/search?q=excel+datum+soll+sich+nicht+aktualisieren&oq=excel+aktuelles+datum+soll+si&aqs=chrome.2.69i57j0l2.11334j1j7&sourceid=chrome&ie=UTF-8)
Gruß,
steve1da
-
Vergiss meinen obigen Beitrag, viel zu umständlich... :)
Es geht viel einfacher und schneller so:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 3 Then
Target.Offset(rowoffset:=0, columnoffset:=1).Value = Date
End If
End Sub