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

Hallo,

Am 03.06.21 um 16:04 schrieb Gerhard Weydt:
> ich kann das nicht nachvollziehen, bei mir läuft das ohne Fehler. 

Es tritt auch nicht bei jedem Öffnen auf, oder nicht bei jedem Dokument.
Eine Regelmäßigkeit dafür habe ich bislang noch nicht entdecken können.


> 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.

Soweit ich das verstehe, geht es um das Dokument als Ganzes, da man ein
einzelnes Blatt nicht speichert, sondern das Dokument als Ganzes. Oder
verstehe ich Dich miss?


> Wenn es möglich ist, dein Dokument in der Cloud zur Verfügung zu 
> stellen, könnte man da noch weiter schauen.

Da muss ich erst eine Erlaubnis einholen.


> 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


-- 
Mit freundlichem Gruß                                 Best regards
                           Boris Kirkorowicz

-- 
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