Office: vba zeitstempel

Hi,

Ich hab folgenden Code als Grundlage:

Brauch aber einen Code der sobald man in zb. Zelle d2 etwas einträgt im Hintergrund einen zeitstempel macht in Zelle d100 der zeitstempel soll tt:mm:tttt Hz:mm:ss sein also mit =jetzt()
Hoff hier bekommt das jmd hin!

Soll für eine zeiterfassungstabelle sein - nur als Kontrolle im Hintergrund, dass nicht betrogen werden kann :)

Gruß un danke im vorraus

 

Hallo!

Meinst du so?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" Then Range("D100") = Now
End Sub

 

Cool danke... glaube darauf kann man sehr gut aufbauen...
Jetzt der kniff dabei...
D2 soll d100 sein
Wenn in d3 was eingetragen wird soll in d101 dize Uhrzeit Usw...
Hab den Code einfach drunter kopiert uns die werte geändert im vba Editor ist aber leider nichts passiert^^


Edit: habs jetzt so gemacht:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$1" Then Range("D10") = Now
If Target.Address = "$D$2" Then Range("D11") = Now
If Target.Address = "$D$3" Then Range("D12") = Now
If Target.Address = "$D$4" Then Range("D13") = Now
End Sub


... mb wenn ich des jetzt für einen Monat selbst schreib un des ganze für spalte d und e bin ich tot...^^
Kann man des mit na schleife vereinfachen? Oda kp irgendwie halt ^^

 

Hallo!

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("D2:D99"), Target) Is Nothing Then Target.Offset(98, 0) = Now
End Sub

Erklärung: Wird im Bereich D2:D99 eine Zelle geändert, dann gibt es 98 Zeilen weiter unten einen Zeitstempel.

 

Danke