Option Explicit
'Erstellt unter Windows Vista - Excel 2010
Sub aaTest1() 'Beispiel festes Datum/Zeit
Call fncCreateDate_setzen(datDatumZeit:=CDate("2012-05-01 00:30:00"))
End Sub
Sub aaTest2() 'Beispiel aktuelles Datum/Zeit
Call fncCreateDate_setzen(datDatumZeit:=Now)
End Sub
Sub aaTest3() 'Beispiel aktuelles Datum
Call fncCreateDate_setzen(datDatumZeit:=Date)
End Sub
Function fncCreateDate_setzen(datDatumZeit As Date, Optional wb As Workbook) As Boolean
fncCreateDate_setzen = True
On Error GoTo Fehler
If wb Is Nothing Then Set wb = ActiveWorkbook
wb.BuiltinDocumentProperties("Creation date") = datDatumZeit
Exit Function
Fehler:
fncCreateDate_setzen = False
End Function
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