Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1068to1072
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeitangabe Speicherung

Zeitangabe Speicherung
17.04.2009 21:59:05
deid
Hallo eine Frage,
gibt es eine Möglichkeit,wenn ich eine Tabelle bearbeite und abspeichere,das beim nächsten Aufruf
z.Bsp in einer Zelle dasteht,wann die Tabelle das letzte mal bearbeitet wurde,bzw.abgespeichert.
Das ganze halt ohne in den Eigenschaften nachzuschauen.
Vielen Dank !!
Ciu !!

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeitangabe Speicherung
17.04.2009 22:05:20
Josef
Hallo ?
' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Sheets("Tabelle1").Range("A1") = "Letzte Speicherung: " & Format(Now, "dd.mm.yy, hh:nn:ss")
End Sub

Gruß Sepp

Anzeige
AW: Zeitangabe Speicherung
17.04.2009 22:13:45
Rudi
Hallo,
in DieseArbeitsmappe:

Private Sub Workbook_Open()
Dim fs As Object, f As Object
Set fs = CreateObject("scripting.filesystemobject")
Set f = fs.getfile(ThisWorkbook.FullName)
Cells(1, 1) = f.datelastmodified
End Sub


Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige