Timestamp (Kurzversion)

Ihnen wird bekan­nt sein, dass Sie in ein­er Tabelle ein Datum und/oder eine Zeit per Funk­tion ein­tra­gen kön­nen. Dieses Feld enthält dann Dat­en, die ständig ohne Ihr Zutun bei jed­er Berech­nung des Tabel­len­blattes aktu­al­isiert wer­den. Soll ein fes­ter Wert einge­tra­gen wer­den, gibt es mehrere Möglichkeit­en: Per Hand ein­tra­gen, Strg. (Datum) bzw. StrgGroß: (Zeit) als Short­cuts oder auch vol­lau­toma­tisch per Makro.

In dieser Datei sind in Spalte A die Top 10 Best­seller (Bel­letris­tik) lt. Spiegel aus dem Jan­u­ar 2015 aufge­lis­tet. Die Forderung ist nun: Wenn sich der Stan­dort des jew­eili­gen Buch­es (Spalte B) verän­dert, meis­tens durch Auslei­he oder Rück­gabe des Exem­plars, soll in Spalte C automa­tisch das Datum und die Uhrzeit einge­tra­gen wer­den. Vorhan­dene Ein­träge wer­den über­schreiben, da nicht mehr aktuell.

Sie kön­nen dieses Makro so wie es ist mit erforder­lichen Anpas­sun­gen direkt in das Mod­ul des entsprechen­den Arbeits­blattes Ihrer Mappe ein­fü­gen und ver­wen­den. Falls Sie dazu Hil­fe brauchen, gibt es hier eine aus­führliche Anleitung. – Eine erweit­erte Form des Time­stamps mit Namen­spro­tokol­lierung) kön­nen Sie hier nach­le­sen.

Hier der Code für die entsprechende Vor­lage:

Private Sub WorkSheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("B:B")) Is Nothing Then
      Cells(Target.Row, 3) = Format(Now, "DD/MM/YYYY hh:mm")
   End If
End Sub

▲ nach oben …

Hat Ihnen der Beitrag gefallen?
Erleichtert dieser Beitrag Ihre Arbeit?

Dann würde ich mich über einen Beitrag Ihrer­seits z.B. 1,00 € freuen … (← Klick mich!)