Zeitstempel ohne Makro

Am besten gar nicht, das macht unter div. Umständen viele Probleme.
<br />Private Sub Workbook_Open()
Range("D" & Rows.Count).End(xlUp).Select
ActiveWindow.Zoom = 111
End Sub
<br />

<br />Kannst Du in das Codemodul "DieseArbeitsmappe" kopieren.
<br />Andreas.
<br />

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("D"))
If Target Is Nothing Then Exit Sub
Target.Offset(0, 1).Value = Now
End Sub

<br />

Super danke!
<br />Zweite Frage wäre wie programmiere ich die Excelliste, dass sie mich bei jedem Öffnen automatisch bei 111% Zoom an die letzte gefüllte Zeile der Spalte D bringt?
<br />

Hallo,

probiere es mit:

=DATUM(LINKS(A1;4);TEIL(A1;5;2);TEIL(A1;7;2))+ZEIT(TEIL(A1;9;2);RECHTS(A1;2)

und formatiere die Ergebniszelle mit TT.MM.JJJJ hh:mm

Claus

Hallo,

formatiere Spalte A mit Windings und erstelle für deinen Bereich in A eine Datengültigkeit => Liste und gebe dort das "ü" ein. Der Zeitstempel und der Nutzername werden mit Code eingefügt, wenn in Spalte A das ü ausgewählt wird.

Lade dir die Datei herunter, dann kannst du das sehen. In OneDrive sind Makros deaktiviert.

Claus