Habe unteren Code Von Herber CD
Es sollte beim beenden der Arbeitsmappe,zusätzlich zum Dateiname das Datum & Uhrzeit mit speichern.
Damit ich sehe wenn die Datei das letzte mal Geschlossen wurde.
Z.B. " Test - 24.05.2007 - 09:53 "
Eventuell die alte Datei überschreiben.
Habe im Sheets "Schichtplan GK" in A4 = JETZT() als Datum und Uhrzeit formatiert.
Könnte mir bitte jemand weiterhelfen.
Gruß Heinz
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim iRow As Integer
With Worksheets("Schichtplan GK")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(iRow, 1) = Date
.Cells(iRow, 1) = Time
End With
On Error GoTo ERRORHANDLER
ThisWorkbook.Save
Exit Sub
ERRORHANDLER:
MsgBox "Die Datei konnte nicht gespeichert werden!"
End Sub