Hallo Boris,
ich kann das nicht nachvollziehen, bei mir läuft das ohne Fehler.
Abgesehen davon, dass oSheet kein guter Variablenname ist, weil die
Variable ja nicht das Blatt bezeichnet, sondern das ganze Dokument,
halte ich das Makro auch vom Lesen her für korrekt.
Wenn es möglich ist, dein Dokument in der Cloud zur Verfügung zu
stellen, könnte man da noch weiter schauen.
Viele Grüße
Gerhard
Am 03.06.2021 um 14:14 schrieb Boris Kirkorowicz:
Function ChangedOn() As Date
Dim oSheet As Object
Dim ChgDate As Variant
oSheet = ThisComponent()
ChgDate = oSheet.DocumentProperties.ModificationDate
' ChgDate ist leer, wenn das Dokument noch nie gespeichert wurde. In
diesem Fall CreationDate nutzen
If ChgDate.Year = 0 Then
ChgDate = oSheet.DocumentProperties.CreationDate
End If
ChangedOn = DateSerial(ChgDate.Year, ChgDate.Month, ChgDate.Day)
End Function
--
Liste abmelden mit E-Mail an: users+unsubscr...@de.libreoffice.org
Probleme?
https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy
