Re: [de-users] Calc: Makro-Laufzeitfehler

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+unsubscribe@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