Supportnet / Forum / Tabellenkalkulation
Datumsfunktion
Frage
Hallo,
ich möchte in Excel eine wenn-Funktion erstellen, die es ermöglicht, dass man in eine Zelle zB ein "X" einträgt, dann soll in der nächsten Zelle das aktuelle Datum stehen, sich aber nicht aktualisieren. Ich habs mit der Funktion: Wenn=(A1="X";heute(); "Falsch") versucht, doch leider ist dann natürlich am nächsten Tag das Datum aktualisiert.
Hat jemand einen Tipp für mich?
Danke im Voraus.
Antwort 1 von M.O.
Hallo Philipp,
das kannst du nur über VBA lösen.
Wähle das Tabellenblatt aus, in dem du das Datum eingefügt haben willst und und drücke dann Alt + F11.
Füge den folgenden Code in das VBA-Projekt des betreffenden Tabellenblatts ein:
Machst du jetzt in der Spalte A ein x, so wird in der betreffenden Zeile in Spalte B das aktuelle Datum eingefügt, das sich auch nicht mehr ändert.
Gruß
M.O.
das kannst du nur über VBA lösen.
Wähle das Tabellenblatt aus, in dem du das Datum eingefügt haben willst und und drücke dann Alt + F11.
Füge den folgenden Code in das VBA-Projekt des betreffenden Tabellenblatts ein:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("A:A")) Is Nothing Then
Else
If Target.Value = "x" Then
Cells(Target.Row, 2) = Date
End If
End If
End SubMachst du jetzt in der Spalte A ein x, so wird in der betreffenden Zeile in Spalte B das aktuelle Datum eingefügt, das sich auch nicht mehr ändert.
Gruß
M.O.
Antwort 2 von Philipp123
Danke! Hat wunderbar geklappt!