wie kann ich in einer Zelle die Anzahl der Speichervorgänge der Arbeitsmappe und das Datum mit Uhrzeit des letzten Speichervorganges festhalten?
Im Voraus besten Dank für jede Art von Hilfe.
mfg
Fritz
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("a1").Value = Date & " " & Time
End Sub
oder
mit diesem Makro (gehört in "DieseArbeitsmappe") wird die Speicherzeit vor jedem Speichern in die Zelle A1 jeden Tabellenblattes geschrieben:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For i = 1 To ThisWorkbook.Sheets.Count
Sheets(i).Range("A1") = "Zuletzt gespeichert: " & Now
Next
End Sub
Für die Anzahl der Öffnungen:
- im neuen Fenster (DieseArbeitsmappe) den Code reinkopieren
Private Sub Workbook_Open()
With Sheets("Tabelle1").Range("A1")
.Value = .Value + 1
End With
End Sub
Tschüs Werner
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
For i = 1 To ThisWorkbook.Sheets.Count
Sheets(i).Range("A1") = "Zuletzt gespeichert: " & Now
Next
With Sheets("Tabelle1").Range("A2")
.Value = .Value + 1
End With
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Tabelle1").Range("B2").Value = Now
Sheets("Tabelle1").Range("C2").Value = Sheets("Tabelle1").Range("C2").Value + 1
End Sub
Gruß Andreas
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Sheets("Speichervorgänge")
.Cells(2, 1).Value = .Cells(2, 1).Value + 1
.Cells(102, 2).Delete shift:=xlUp
.Cells(2, 2).Insert shift:=xlDown
.Cells(2, 2).Value = Now
End With
End Sub
in der Zelle A2 des Tabellenblatts werden die Speichervorgänge gezählt und in B2 wird das Datum und die Uhrzeit der letzten Speicherung angezeigt.
Es werden die jeweils letzten 100 Speicherungen dokumentiert.
Gruß, Daniel
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen