Exel Datum bzw. Uhrzeit automatisch einfügen

Computer: Software & Programmierung Office Software
#1

Hallo zusammen,
Ich bin auf der Suche nach einem Exel code.

In Zelle A soll das Datum
In Zelle B die Uhrzeit
Zelle C ist immer gleich
In Zelle D kommt ein Text und durch das Eintragen des Text soll in die Zelle A sowie B automatisch das aktuelle Datum und die Zeit eingefügt werden.

Mit:
=WENN(D10;JETZT();"")
funktioniert das zwar, aber wenn ich z.B. in Spalte d35 was eintrage wird die Zeit bzw. Datum für alle vorriegen Einträge auf die Zeit bzw. Datum des letzten Eintrages umgeschrieben.

Der hier beschriebene Code funktioniert leider für meine Tabelle nicht.
/t/excel-verschiedene-uhrzeitwerte-in-den-zellen/597…

Kann mir jemand weiterhelfen?
Gruss blubbla

#2

Der hier beschriebene Code funktioniert leider für meine
Tabelle nicht.
/t/excel-verschiedene-uhrzeitwerte-in-den-zellen/597…

Kann mir jemand weiterhelfen?
Gruss blubbla

Hallo blubbla
=WENN(B1"";WENN(A1"";A1;JETZT());"")
wenn du diesen Code meinst, so ist vorher die Excel-Optionen Iterative Berechnung zu aktivieren.

Weil sich jetzt() ständig aktualisiert, geht das sonnst nicht per Formel.
Schau dir in deinem Link Reinhards Makro an wenn du das Datum/ die Uhrzeit nicht per Tastenkombination einfügen möchtest.

Gruß Holger

#3

Hallo Blubb,

Ich bin auf der Suche nach einem Exel code.

also Vba!?

In Zelle A soll das Datum
In Zelle B die Uhrzeit
Zelle C ist immer gleich
In Zelle D kommt ein Text und durch das Eintragen des Text
soll in die Zelle A sowie B automatisch das aktuelle Datum und
die Zeit eingefügt werden.

Der hier beschriebene Code funktioniert leider für meine
Tabelle nicht.
/t/excel-verschiedene-uhrzeitwerte-in-den-zellen/597…

Präzisiere bitte „Eintragen von Text“.
Ich habe jetzt den Code für deine Tabelle angepasst.
Er reagiert auf jedwede Zellwertänderung in D, egal ob Wertlöschung,
Wertänderung oder Neueintrag. Willste das differzierter mußte das genau sagen.

Nachfolgend der Code, er gehört in das Modul des Blattes.

Gruß
Reinhard

Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Zelle As Range
Set Target = Intersect(Target, Range("D:smiley:"))
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each Zelle In Target
 Zelle.Offset(0, -3).Value = Format(Date, "dd.mm.yy")
 Zelle.Offset(0, -2).Value = Format(Time, "hh:mm:ss")
Next Zelle
Application.EnableEvents = True
End Sub