Eigenschaft Date creation ändern

Sub UpdateDateCreation() 'The complete Code is originally von Herber Hans Dim iCounter As Integer Dim DateCreation As Date For iCounter = 1 To 30 If UCase$(ThisWorkbook.BuiltinDocumentProperties(iCounter).Name) = "CREATION DATE" _ Then DateCreation = ThisWorkbook.BuiltinDocumentProperties(iCounter) MsgBox (ThisWorkbook.BuiltinDocumentProperties(iCounter).Name & ": " & DateCreation) _ End If Next iCounter 'DateCreation="01.05.2012" ? End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Franz D.,
war Heute ein Thema hier, die Lösung könnte für dich passen, teste es einmal.
Bei geöffneter Arbeitsmappe:
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

Lösung stammt von "fcs" ein Namensvetter von dir. Sollte es nicht funktionieren dann meld dich nochmal.
Gruß Matze

Hallo Hajo,
den Schalter gibt es nicht, meinst du vllt. "Offene Fragen"?
Dann sag das doch, ich mein du verlangst ja von Anfragern auch korrekte Anfragen.
Da ich die Frage auf noch offen gestellt habe erscheint die Beitragsfolge wie gewünscht nach
Klick auf den Schalter.
Du als MVP kannst ja den Code deuten und erkennen daß der Code nix hergibt wo es um
Schreibschutz geht.
Einen Schritt weiter gedacht hätte ja dann die Frage in einem auftauchen können, die reden
da über Schreibschutz, imk Code ist nix sichtbar. Aha, das Geheimnis des Schreibschutzes könnte ja
in den paar Beiträgen vorher in der Beitragsfolge stehen.
Das durchexerziert hättest du gewußt um was es geht.
Ich bin so, wenn ich in der Hilfe lese daß da eine Eigenschaft/methode oder wie das sonst heißt
schreibgeschützt sein soll und ich habe Kurzcode der genau das Gegenteil macht, dann möchte
ich, auch in Gedanken an die Zukunft bei ähnlichen Vorkommnissen, wissen was da falsch ist.
Im Sinne von
http://www.youtube.com/watch?v=Tlng8RSxm-4
frage ich dann nach bei Menschen die mehr Vba-Wissen als ich haben, gibts ja reichlich :-).
Wenn die klare Antwort kommt, Fehler in der Hilfe, dann ist alles klar, Sache erledigt.
Aber aus meiner Sicht könnte auch eine andere Antwort kommen.
Z.B. so: schreibgeschützt in der Hilfe bezieht sich auf den Container BuildinDocumentproperties
aber im Code wird die Eigenschaft von BuildinDocumentproperties angesprochen.
Bitte, der letzte Satz ist erfunden, er spiegelt wieder daß in der Vba-Theorie gewaltige Mankos habe.
Schöpfing
Gruß
Reinhard

Beliebteste Forumthreads (12 Monate)

Eigenschaft Date creation ändern

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread